Напишите программу вычисляющую сумму четных элементов массива
Напишите программу вычисляющую сумму четных элементов массива
Гость
Ответ(ы) на вопрос:
Гость 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.
Пример:
Исходный массив:
5 -6 -7 2 3 5 -7 -2 -6 -5
s = -12
Не нашли ответ?
Похожие вопросы