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

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