Паскаль количество чётных чисел в массиве

[DeMoN_tmb]

Может я что-то не то делаю ... в общем написал нажимаю ctrl+f9 пишу числа 11 22 33 44 66 нажимаю enter потом опять ctrl+f9 но ничего не происходит ...

[russian-stalker]

Смотрим внимательнее код: я там не делал ввод с клавиатуры, это вы думаю сами сделаете.

[DeMoN_tmb]

Сообщение от russian-stalker

Смотрим внимательнее код: я там не делал ввод с клавиатуры, это вы думаю сами сделаете.

не сделаю не могли бы вы дать намёк как это написать

[russian-stalker]

Ну народ ёпт

program Project1;

var
   a:array[1..5] of integer;
   i,k:integer;
begin
   k:=0;
   i:=1;
   while i<=5 do
   begin
      readln(a[i]);
      i:=i+1;
   end;
   i:=1;
   while i<=5 do
   begin
      if a[i] mod 2=0 then
         k:=k+1;
         i:=i+1;
   end;
   writeln('kolvo: ',k);
   readln(i);
end.

[DeMoN_tmb]

СПАСИБО !!!