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

Question

Информатика

Анастасея

12 декабря, 06:40

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

+4

Ответы (1)

Знаете ответ?

Мишаня · 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.