Question

1.Написать программу, которая вычисляет сумму отрицательных элементов одномерного массива. массив из 15 целых элементов.
2. Написать программу которая вычисляет сумму положительных элементов одномерного массива. массив из 12 вещ элементов
паскаль, прошу вас, помогите​

Answer 1

===== PascalABC.NET =====

begin

 // 1

 var a := ArrRandom(15, -99, 99);

 a.Println.Where(p -> p < 0).Sum.Println;

 Writeln; // только как разделитель между заданиями

 // 2

 var b := ArrRandomReal(12, -99, 99);

 b.Println.Where(p -> p > 0).Sum.Println

end.