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.