Задана последовательность из n вещественных чисел. Определить

количество четных и количество нечетных элементов

последовательности.

оператор цикла с параметром;

Program p;

var n, a, k, m, i:integer;

begin

writeln ('Введите n') ;

write ('n=') ;

readln (n) ;

k:=0;

m:=0;

for i:=1 to n do begin

readln (a) ;

if a mod 2=0 then k:=k+1

else m:=m+1;

end;

writeln ('Количество четных ', k) ;

writeln ('Количество нечетных ', m) ;

end.

Ну вот тебе внутренняя часть проги:k:=0;

while k<=n do beginif x mod 2=0 then a:=a+1 else s:=s+1k:=k+1end; writeln ('Кол-во четных = ', a, ' Кол-во нечетных = ', s)