Question

Написать программу на Pascal.
Ввести 10 случайных чисел и посчитать количество чётных и нечётных .

Answer 1

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

begin
  var a:=ArrRandom(10,-50,50); a.Println;
  var k:=a.Where(t->t.IsOdd).Count;
  Writeln('Четных чисел ',k,', нечетных ',10-k)
end.

Пример
-45 -50 -29 12 35 -50 -33 -16 50 -24
Четных чисел 4, нечетных 6

Answer 2

Чтобы ввести числа, замените всю первую строчку следующим текстом: var a:=ReadArrInteger(10);

Answer 3

Спасибо!

Answer 4

Пожалуйста

Answer 5

Ну или var a:=ReadArrReal(10); чтобы и нецелые числа вводить.

Answer 6

Только лучше этого не делать, потому что у нецелых нельзя определить четность и нечетность ))))