Question

В цикле с клавиатуры вводятся 10 целых чисел. Вычислить процент чѐтных чисел и процент нечѐтных.

Answer 1

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger('Введите 10 целых чисел:',10);
  var pe:=a.Where(t->t.IsEven).Count/10;
  Writeln('Нечетных ',100*pe,'%, четных ',100*(1-pe),'%')
end.

Пример
Введите 10 целых чисел: 13 23 38 -24 0 16 -35 18 29 34
Нечетных 60%, четных 40%