1. массив и 4 целых чисел вводится с клавиатуры. найти и вывести произведение элементов массива. 2. массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. найти сумму положительных элементов массива. 3. массив из 5 целых чисел вводится с клавиатуры в строку. найти сумму элементов массива, стоящих на чётных позициях. вывести исходный массив и полученную сумму. 4. массив из 40 целых чисел из промежутка [10,90] задается с генератора случайных чисел. найти сумму элементов массива, кратных n . вывести исходный массив и полученную сумму. кто в чем может.
uses crt;
var i,n:integer;
A:array[1..4] of integer;
begin
n:=1;
for i:=1 to 4 do
begin
read(A[i]);
n:=n*A[i];
end;
writeln(n);
end.