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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Гость

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.

Accepted Answer

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