Question

2. Напишете программу на языке Pascal, которая в массиве из 19 элементов подсчитывает количество элементов меньше 100. Массив должен заполняться случайными значениями в интервале от 0 до 200

Answer 1

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var a:=ArrRandom(19,0,200); a.Println;
  Writeln('k=',a.Where(x->x<100).Count)
end.

Тестовое решение
127 120 137 75 141 61 116 13 52 180 109 80 91 36 71 191 56 7 108
k=10