Заполнить массив из 15 элементов случайными числами в интервале от 0 до 50.Подсчитать...

Question

Заполнить массив из 15 элементов случайными числами в интервале от 0 до 50.Подсчитать количество элементов, значения которых меньше 50.

Comments

никаких ошибок нет в условии? А то вероятность того, что из 15 элементов в диапазоне [0;50] появится число "50" маловато, если честно...

Answer 1

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

Begin
var a:= ArrRandom(15,0,50);a.PrintLn;
Writeln(a.Where(t -> t < 50).Count);
end.

Пример:
16 38 2 12 48 5 18 12 27 12 48 5 6 43 28
15