.:Обчислення кількості парних елементів масиві:.

program Hello;

const n=10;

var a:array[1..n] of integer;

sum,i:integer;

begin

for i:=1 to n do

begin

a[i]:=random(20);

write(a[i],' ');

end;

sum:=0;

for i:=1 to n do

sum:=sum + a[i];

writeln('Sum: ',sum);

end.