Тема: Одномерные массивы. В паскале в массиве даны 10 целых чисел. Нужно найти сумму четных чисел.
Тема: Одномерные массивы. В паскале в массиве даны 10 целых чисел. Нужно найти сумму четных чисел.
Гость
Ответ(ы) на вопрос:
Гостьvar
A: Array[0..9] of Integer;
i, Sm: Integer;
begin
Sm:=0;
for i:=0 to 9 do
A[i]:=Random(300) - 20;
for i:=0 to 9 do
if (A[i] Mod 2 = 0) then
Sm:=Sm + A[i];
WriteLn('Sum = ', Sm);
end.
Не нашли ответ?
Похожие вопросы