Question

Заполните массив 15 числами от -20 до 20. Найдите сумму положительных элементов массива. Вывести на экран массив, а затем сумму. ​​

Answer 1

// PascalABC.NET 3.6

begin

 var a := ArrRandom(15, -20, 20);

 a.Println.Where(p -> p >0).Sum.Print

end.

Answer 2

Хорошо! Вот массив, содержащий 15 чисел от -20 до 20:

[-20, -15, -10, -5, 0, 5, 10, 15, 20, -20, -15, -10, -5, 0, 5]

Теперь давайте найдем сумму положительных элементов в этом массиве. В данном случае, положительными считаются числа больше нуля.

Положительные элементы: 5, 10, 15, 20, 5 Сумма положительных элементов: 55

Итак, сумма положительных элементов массива равна 55.