Найти количество четных чисел в одномерном массиве размерностью 5.

1

Ответы и объяснения

2013-04-04T20:47:43+04:00

var

  a : array [1..5] of integer;

  count, i ; integer;

begin

  count := 0;

  for i := 1 to 5 do read (a[i]);

  for i := 1 to 5 do

    if a[i] mod 2 = 0 then inc (count);

  writeln (count);

end.