Question

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

Answer 1

program CountEvenOdd;
var   i, n, evenCount, oddCount: integer;
begin   evenCount := 0;   oddCount := 0;
  for i := 1 to 10 do   begin     write('Введите число ', i, ': ');     readln(n);     if n mod 2 = 0 then       evenCount := evenCount + 1     else       oddCount := oddCount + 1;   end;
  writeln('Четных чисел: ', evenCount);   writeln('Нечетных чисел: ', oddCount);
  readln; end.