С клавиатуры вводятся числа до тех пор пока не введено 5. Найти колличество четных чисел...

Question

С клавиатуры вводятся числа до тех пор пока не введено 5. Найти колличество четных чисел из введенных .

Answer 1

числа 2 и 4 ))))

Мухтар это ты перечислил целые а не четные

Answer 2

var a:array [1..100] of integer; i,n,b:integer;

begin

i:=1;

while a[i]<>5 do

begin

read(a[i]);

i:=i+1;

n:=n+1;

end;

for i:=1 to n do

if a[i] mod 2=0 then b:=b+1;

writeln(b);

end.