Question

Одномерный массив. найти сумму тех элементов которые без остатка делиться на 2 (pascal).

Answer 1

Const n=20;
var 
  s,i: integer;
  var a: array[1..n] of integer;
begin
  writeln ('Исходный массив');
  for i:=1 to n do begin
    a[i]:=random(100);
    write (a[i]:3);
    if a[i] mod 2 =0
      then s:=s+a[i];
  end;
  writeln;  
  writeln ('Сумма четных элементов = ',s);
end.

------------------Результат:------------------

Исходный массив
 81 44 47 62 51 94 32 42 41 83 75 14 18 35  7 97 83 51 71 57
Сумма четных элементов = 306