Question

дан равномерный массив заданный случайным образом в деопозоне {-15:15} вычеслите сумму положительных элементов.Программу Паскаль пожалуйста

Answer 1

Ответ:

PascalABC.NET

begin

 var A := ArrRandom(ReadInteger('длина: '), -15, 15);

 A.Where(x -> x > 0).Sum.Println;

end.