Программа в паскале

Question

Программа в паскале

Алина Зуйкова Ученик (163), на голосовании 5 месяцев назад

из диапазона 30 чисел нужно найти количество чётных и нечётных чисел

Answer 1

Я больше удивлен что щас вообще кто то использует Паскаль, если вы хотите войти в Айти по настоящему забудьте про это.

Answer 2

program p1;
const n=30; var i,o,t:integer;
begin
o:=0; for i:=1 to n do begin read(t); inc(o,ord(odd(t))) end;
writeln('odds=',o,', evens=',n-o);
end.