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

[DeMoN_tmb]

Помогите составить программу которая находит количество чётных чисел в массиве. Откликнувшимся спасибо !!!

[Stilet]

Составить то не сложно, но покажи наработки, ато вдруг в коде попадется такое чего вы еще не изучали - это палево.

[russian-stalker]

Если паскаль, то:

program Project1;
var
   a:array[1..5] of integer;
   i,k:integer;
begin
   k:=0;
   a[1]:=1;
   a[2]:=2;
   a[3]:=3;
   a[4]:=4;
   a[5]:=5;
   for i:=1 to 5 do
   begin
      if a[i] mod 2=0 then
         k:=k+1;//если учили, можно заменить на Inc(k)
   end;
   writeln('kolvo: ',k);
   readln(i);
end.

(Сорри за кросс-постинг, просто из головы вылетело что уже писал здесь)

[DeMoN_tmb]

Сообщение от Stilet

Составить то не сложно, но покажи наработки, ато вдруг в коде попадется такое чего вы еще не изучали - это палево.

оператор while

[russian-stalker]

Ну значит смотри мой код, который я написал выше

upd:
Если с While то:

program Project1;
var
   a:array[1..5] of integer;
   i,k:integer;
begin
   k:=0;
   a[1]:=1;
   a[2]:=2;
   a[3]:=3;
   a[4]:=4;
   a[5]:=5;
   i:=1;
   while i<>5 do
   begin
      if a[i] mod 2=0 then
         k:=k+1;//если учили, можно заменить на Inc(k)
         i:=i+1;
   end;
   writeln('kolvo: ',k);
   readln(i);
end.

[DeMoN_tmb]

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

Ну значит смотри мой код, который я написал выше

upd:
Если с While то:

program Project1;
var
   a:array[1..5] of integer;
   i,k:integer;
begin
   k:=0;
   a[1]:=1;
   a[2]:=2;
   a[3]:=3;
   a[4]:=4;
   a[5]:=5;
   i:=1;
   while i<>5 do
   begin
      if a[i] mod 2=0 then
         k:=k+1;//если учили, можно заменить на Inc(k)
         i:=i+1;
   end;
   writeln('kolvo: ',k);
   readln(i);
end.

пробую поставить числа не получается

[Stilet]

пробую поставить числа не получается

Всмысле? Куда ставить? и какие числа...

[DeMoN_tmb]

Сообщение от Stilet

Всмысле? Куда ставить? и какие числа...

пишу массив а он не показывает количество чётных чисел в нём ...

[russian-stalker]

У меня нормально показывает в Turbo Pascal'e и в Delphi(console application)

[russian-stalker]

Я кстати ошибся и там надо не

while i<>5 do

А:

while i<=5 do