Заполнить массив из 10 элементов случайными числами в интервале [-10,10] и подсчитать...

Question

Заполнить массив из 10 элементов случайными числами в интервале [-10,10] и подсчитать сумму всех положительных элементов.

Answer 1

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(10,-10,10); a.Println;
  Writeln('Сумма положительных: ',a.Where(x->x>0).Sum)
end.

Пример
3 -4 9 -5 2 1 6 -4 10 -2
Сумма положительных: 31

Comments

есть другое решение?