Напишите программу вычисляющую сумму четных элементов массива

Question

Мария Левина

Информатика

29 марта, 09:34

Напишите программу вычисляющую сумму четных элементов массива

+5

Ответы (1)

Знаешь ответ на этот вопрос?

Матвей Сидоров · Answer 1

Const n=10;

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

i, s:integer;

begin

writeln ('Исходный массив:');

for i:=1 to n do

begin

a[i]:=random (21) - 10;

write (a[i],' ');

end;

writeln;

s:=0;

for i:=1 to n do

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

writeln ('s = ', s);

end.