Question

Составьте программу, которая формирует массив, содержащий 18 случайных чисел, принадлежащих промежутку [2;9], и подсчитывает сумму положительных элементов. Для результата использовать форматный вывод. P.S. Буду очень благодарен!

Answer 1

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(18, 2, 9);

 a.Println;

 WriteFormat('S = {0:###}', a.Where(t -> t > 0).Sum)

end.

5 7 8 4 3 3 9 8 7 5 6 9 8 7 2 7 8 4

S = 110