Question

ПАСКАЛЬ
Найти сумму положительных и количество отрицательных элементов в одномерном массиве: 0; 15; 12; -9; -8; 58; 45; 36; -85; 58; 36; -45; 2; 3; 25; -9.

Answer 1

PascalABC.Net

begin

 var a := Arr(0, 15, 12, -9, -8, 58, 45, 36, -85, 57, 36, -45, 2, 3, 25, -9);

 Println('Исходный массив', a);

 Println('Отрицательных: ', a.Where(x -> x < 0).Count, ' | Сумма: ', a.Where(x -> x > 0).Sum);

end.