Подсчитать среди 30 целых случайных чисел из интервала - вопрос №550221130550 от den111111111113 01.03.2022 23:26

Question

Информатика: Подсчитать среди 30 целых случайных чисел из интервала [ -5; 50] количество чисел, меньше 0.

den111111111113 · Answer

// 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