Задание

Дан массив, состоящий из 5 целых чисел. Установите соответствие между условием задачи и фрагментом программы.

Вычисление суммы чётных элементов массива.

Вычисление среднего арифметического значения отрицательных элементов массива.

Вычисление произведения положительных элементов массива.

Вычисление количества нечётных элементов массива.

s := 0;

for i := 1 to 5 do begin

if A[i] mod 2 = 0 then

s := s + A[i];

end;

writeln(s);

s := 1;

for i := 1 to 5 do begin

if A[i] > 0 then

s := s * A[i];

end;

writeln(s);

s := 0;

for i := 1 to 5 do begin

if A[i] mod 2 <> 0 then

s := s + 1;

end;

writeln(s);

s := 0;

k := 0;

for i := 1 to 5 do

if A[i] < 0 then begin

s := s + A[i];

k := k + 1;

end;

s := s / k;

writeln(s);