Предмет: Информатика,
автор: Алексей26122002
Pascal ABC . Срочно !!!!!!
Заполнить массив из 10-ти элементов целыми случайными числами в диапазоне [ – 20;20], вычислить сумму положительных элементов массива
Алексей26122002:
PascalABС.NET
Ответы
Автор ответа:
2
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-20,20); a.Println;
Writeln('Сумма положительных равна ',a.Where(t->t>0).Sum)
end.
Пример
-3 -19 10 5 14 13 -1 0 -2 -12
Сумма положительных равна 42
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-20,20); a.Println;
Writeln('Сумма положительных равна ',a.Where(t->t>0).Sum)
end.
Пример
-3 -19 10 5 14 13 -1 0 -2 -12
Сумма положительных равна 42
Интересные вопросы
Предмет: Математика,
автор: uzeyiralizade007
Предмет: География,
автор: fbteyjjhftrrfgj
Предмет: Физика,
автор: viktoryadjufer2066
Предмет: История,
автор: Аноним