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

"Аффигеть!" (с)

Ждал ваш комментарий и долждался. Весело однако.

А уж как мне весело! Это где так учат писать? Или просто чтобы постебаться?

var q,w,e,r,t,y,u,i,o,p,l,s,a: Integer;beginwriteln('Введите 10 целых чисел');readln(q,w,e,r,t,y,u,i,o,p);s:=0;a:=0;for l:=0 to 9 dobeginif l=0 then if q mod 2=0 then s:=s+1 else a:=a+1;if l=1 then if w mod 2=0 then s:=s+1 else a:=a+1;if l=2 then if e mod 2=0 then s:=s+1 else a:=a+1;if l=3 then if r mod 2=0 then s:=s+1 else a:=a+1;if l=4 then if t mod 2=0 then s:=s+1 else a:=a+1;if l=5 then if y mod 2=0 then s:=s+1 else a:=a+1;if l=6 then if u mod 2=0 then s:=s+1 else a:=a+1;if l=7 then if i mod 2=0 then s:=s+1 else a:=a+1;if l=8 then if o mod 2=0 then s:=s+1 else a:=a+1;if l=9 then if p mod 2=0 then s:=s+1 else a:=a+1;end;writeln('Чётных: ',s);writeln('Нечётных: ',a);end.