Тема: одномерные массивы. в паскале в массиве даны - вопрос №232544810 от 2006zahar2006 29.09.2020 14:20

Question

Информатика: Тема: одномерные массивы. в паскале в массиве даны 10 целых чисел. нужно найти сумму четных чисел.

2006zahar2006 · Answer

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.