Составьте программу по которой компьютер десять раз запросит ввод целых и в результате сообщит сколько среди введённых чисел чётных и сколько нечётных.
Паскаль, соответственно.

Антагонист, ты на минуточку стал для меня протагонистом. Благодарю.

всегда рад помочь.

var a,b,c,d:integer;beginfor a:=1 to 10 do begin  write('введите число=> ');  readln(d);  if (d mod 2=0) then c:=c+1 else d:=d+1;  end;writeln('чётных=> ',c,' нечётных=> ',d);end.