Дан массив из 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.