Дан массив из 10 элементов. 1. Найти сумму чётных элементов 2. Найти произведения элементов, стоящмх на нечетных местах 3. Найти количество элементов больше трех

program zz1;

var mas:array[1 ... 10] of integer;

i, s, p, k:integer;

begin

for i:=1 to 10 do / /получаем исходный массив случайным образом от 1 до 10

mas[i]:=random (10) + 1;

for i:=1 to 10 do / /выводим исходный массив на экран

write (mas[i],' ');

for i:=1 to 10 do / /высчитываем сумму четных элементов

if mas[i] mod 2 = 0 then s:=s+mas[i];

writeln; / /переходим на новую строку для вывода

writeln ('сумма четных элементов=', s);

p:=1; / /задаем начальное значение для произведения

for i:=1 to 10 do

if i mod 2 0 then p:=p*mas[i];

writeln ('произведение элементов стоящих на нечетных местах=', p);

for i:=1 to 10 do

if mas[i]>3 then k:=k+1;

write ('количество элементов больших трем=', k);

end.