Составьте программу, которая формирует массив, содержащий 18 случайных чисел, принадлежащих промежутку [2;9], и подсчитывает сумму положительных элементов. Для результата использовать форматный вывод.
P.S. Буду очень благодарен!
Ответы на вопрос
Ответил Аноним
0
PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018
Внимание! Если программа не работает, обновите версию!
begin
var a := ArrRandom(18, 2, 9);
a.Println;
WriteFormat('S = {0:###}', a.Where(t -> t > 0).Sum)
end.
5 7 8 4 3 3 9 8 7 5 6 9 8 7 2 7 8 4
S = 110
Новые вопросы