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

Answer 2

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

Answer 3

Любая задача в программировании может быть решена десятками способов. Но это не значит, что у Вас есть право, получив решение в точном соответствии с Вашим вопросом, заявлять "А мне иначе надо!".

Answer 4

Это сродни "Постройте мне двухэтажную дачу!". А увидев, - "А можно по-другому построить?".

Answer 5

Да, Вы тут не платите денег, но те, кто Вам ответ пишут, вкладывают свой труд и это нужно ценить.