Заполнить массив из 10 элементов случайными числами - вопрос №9211235102010 от marmeoladikp07wow 24.05.2023 20:08

Question

Информатика: Заполнить массив из 10 элементов случайными числами от -20 до 10. вывести количество отрицательных элементов

marmeoladikp07wow · Answer

PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018
Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(10,-20,10); a.Println;
Writeln('Отрицательных элементов: ',a.Where(t->t<0).Count)
end.

Пример
-8 -18 2 -7 9 -14 -2 -12 2 7
Отрицательных элементов: 6