Question

В среде программирования создайте массив a из десяти целых чисел, принадлежащих полуинтервалу [-50,50).Выведите полученный массив на экран.Подсчитайте сумму положительных и количество отрицательных элементов массива.

Answer 1

Ответ:

PascalABC.NET

begin

 var A:= ArrRandom(10, -50, 49).Println;

 A.Where(x -> x > 0).Sum.Println;

 A.Where(x -> x < 0).Count.Println;

end.

Объяснение: