Составить алгоритм и написать программу. Получить 15 целых чисел ** интервале (50;150)....

Question

Составить алгоритм и написать программу. Получить 15 целых чисел на интервале (50;150). Сколько выпало трехзначных чисел.

Answer 1

// PascalABC.NET 3.2, сборка 1443 от 19.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(15,50,150); a.Println;
  Writeln('Трехзначных: ',a.Where(x->x>99).Count)
end.

Пример
132 53 120 100 143 148 125 78 150 141 50 138 72 109 59
Трехзначных: 10