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

0 голосов
49 просмотров

Тема: Одномерные массивы.

В паскале в массиве даны 10 целых чисел.

Нужно найти сумму четных чисел.


Информатика (23 баллов) | 49 просмотров
Дан 1 ответ
0 голосов

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.

(139 баллов)