Question

Написать программу, которая заполняет массив А[1..50] случайными числами из диапазона (-100, 30), подсчитывает количество положительных элементов и их сумму.

Answer 1

// PascalABC.NET

begin

 var a := ArrRandom(50, -100, 30);

 a.Println;

 var s := a.Where(p -> p > 0);

 Print(s.Count, s.Sum)

end.