напишите програму: программа получает количество вводимых чисел. пользователь вводит эти числа. программа должна вывести количество четных чисел. программа должна вывести количество нечетных чисел.
More Questions From This User See All
Answers & Comments
var n,a,k1,k2,i:integer;
begin
write('Введите количество вводимых чисел: ');
readln(n);
for i:=1 to n do
begin
write('Введите ',i,' числo: ');
readln(a);
if a mod 2 = 0 then k2:=k2+1
else k1:=k1+1
end;
writeln ('Количество четных чисел: ',k2);
writeln ('Количество нечетных чисел: ',k1)
end.