В массиве подсчитать:сумму чётных элементов. (Элементов массива:7. Массив вводится с...

Question

В массиве подсчитать:сумму чётных элементов. (Элементов массива:7. Массив вводится с клавиатуры)

Answer 1

Var
  aa[1..7] : array of integer;
  i, s : integer;

begin
  for i := 1 to 7 do
    read(aa[i]);

  s := 0;
  for i := 1 to 7 do
    if aa[i] mod 2 = 0 then
      s := s + aa[i];

  writeln(s);
end.