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

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

Comments

Нет, нужно чтобы я ввела числа

---

У вас написано СЛУЧАЙНЫХ ЧИСЕЛ. Учитесь правильно формулировать

---

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

---

Спасибо!

---

Пожалуйста

---

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

---

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