2. Напишете программу на языке Pascal, которая в массиве из 19 элементов подсчитывает количество элементов меньше 100. Массив должен заполняться случайными значениями в интервале от 0 до 200
2. Напишете программу на языке Pascal, которая в массиве из 19 элементов подсчитывает количество элементов меньше 100. Массив должен заполняться случайными значениями в интервале от 0 до 200
Гость
Ответ(ы) на вопрос:
Гость// 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
Не нашли ответ?
Похожие вопросы