Подсчитать среди 30 целых случайных чисел из интервала [ -5; 50] количество чисел, меньше 0.
Подсчитать среди 30 целых случайных чисел из интервала [ -5; 50] количество чисел, меньше 0.
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(30,-5,50); a.Println;
Writeln('k=',a.Where(x->x<0).Count)
end.
Тестовое решение:
24 39 36 2 -3 -3 29 32 24 -3 11 14 17 -4 -1 13 13 36 24 49 41 27 17 20 24 32 36 -2 -1 7
k=7
Не нашли ответ?
Похожие вопросы