Найти сумму четных элементов массива целых чисел.Размерность массива - 20.Заполнение...

Question

Найти сумму четных элементов массива целых чисел.Размерность массива - 20.Заполнение массива осуществить случайными числами от 100 до 200

Answer 1

var

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

s,i:integer;

begin

randomize;

for i:=1 to 20 do begin

a[i]:=random(101)+100;

write (a[i],' ');

end;

writeln;

s:=0;

for i:=1 to 20 do 

if odd(a[i])=false then s:=s+a[i];

writeln (s);

readln;

end.