Question

Заполните массив 15 числами от -20 до 20. Найдите сумму положительных элементов массива. Вывести на экран массив, а затем сумму. ​​

Answer 1

// PascalABC.NET 3.6

begin

 var a := ArrRandom(15, -20, 20);

 a.Println.Where(p -> p >0).Sum.Print

end.