На заданном пользователем отрезке найти сумму чётных чисел.

Var

a:array [1 ... 1000] of integer;

i, n, sum:integer;

begin

randomize;

write ('Введите максимальное число массива:') ;

Readln (n) ;

begin

for i:=1 to n do

a[i]:=random (20) + 20;

end;

Writeln ('Массив состоит из следующих чисел:') ;

for i:=1 to n do

write (' ', a[i]) ;

Writeln () ;

sum:=0;

for i:=1 to n do

if a[i] mod 2 = 0 then sum:=a[i]+sum;

writeln ('Сумма всех чётных чисел равна : ', sum) ;

end.