Дан массив из 10 элементов.

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

2. Найти произведения элементов, стоящмх на нечетных местах

3. Найти количество элементов больше трех

Var ar:array[1 ... 10] of integer;

i, k1, k2, k3:integer;

begin;

randomize;

k2:=1;

writeln ('Array:') ;

for i:=1 to 10 do

begin;

ar[i]:=random (10) ;

write (ar[i]:4) ;

if odd (i) then k2:=k2*ar[i] else k1:=k1+ar[i];

if ar[i]>3 then inc (k3) ;

end;

writeln;

writeln ('1:', k1) ;

writeln ('2:', k2) ;

writeln ('3:', k3) ;

end.