Question

составьте программу которая заполняет массив а [ 1..10] случайными целыми числами в диапазоне от -10 до 30 и вычисляет сумму отрицательных элементов массива. выводит на экран исходный массив и значение суммы

Answer 1

PascalABC.NET 3.3

begin
  var a:=ArrRandom(10,-10,30);
  a.Println;
  writeln(a.Where(x->x<0).Sum);
end.

Пример:
27 8 19 -2 26 2 16 -10 11 -9
-21