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

//PascalABC.NET 3.1 сборка 1239
begin
    var a := ArrRandom(10, -30, 30);
    a.Println(a);
    writeln(a.Where(x -> x > 0).Aggregate(0, (s, x)-> s + x));
end.

//PascalABC.NET 3.1 сборка 1239
begin
    var a := ArrRandom(10, -30, 30);
    a.Println(a);
    writeln(a.Where(x -> x > 0).Aggregate(0, (s, x)-> s + x));
end.