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

Question

Информатика

Жануся

11 октября, 18:46

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

+5

Ответы (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.