С клавиатуры вводятся N чисел. Определить кол-во нечетных и вывести на экран.

Паскаль

Program test;

var

a, b:integer;

begin

b:=0;

repeat

readln (a) ;

if a mod 20 then b:b+1;

until a=0;

writeln (b) ;

end.

Если пишешь в Turbo Pascal перед " end." добавь строчку "readln; ".

Писал на скорую руку, проверь, перед тем, как сдавать учителю;)

Чтобы вывел результат - нужно ввести с клавиатуры 0.