Question

В Паскале. Создать массив В из десяти целых чисел. Вывести полученный массив на экран. Подсчитать сумму положительных и количество отрицательных элементов массива

Answer 1

Ответ:

PascalABC.NET

begin

 var B := ArrRandom(10, -99, 99);

 B.Println;

 B.Where(k -> k > 0).Sum.Println;

 B.Where(k -> k <0).Count.Println;

end.

Объяснение: