Ввести с клавиатуры n чисел. Определить количество нечетных — Pascal (Паскаль)

var n,i,k,a:integer;
begin
    writeln('введите количество чисел');
    readln(n);
    a:=0;
        for i:=1 to n do begin
            writeln('введите ',i:1,'-е число');
            readln(a);
            if a mod 2<>0 then k:=k+1;
        end;
    writeln('кол-во нечетных чисел ',k);
    readln;
end.

Leave a Comment