Предмет: Информатика,
автор: 1melochek7
дан одномерный массив, состоящий из N целых чисел. Найти сумму всех положительных элементов, и сумму всех отрицательных элементов. на компьютер нужно написать программку
CollonilTolli:
На каком языке?
паскаль
Ответы
Автор ответа:
0
Ответ:
begin
var N:Integer;
read(N);
var arr := ReadArrInteger(N);
writeln();
arr.Where(x -> x > 0).Sum.PrintLn();
arr.Where(x -> x < 0).Sum.PrintLn();
end.
//PascalABC.NET v3.5.X
Интересные вопросы
Предмет: Українська мова,
автор: radrenault
Предмет: Русский язык,
автор: Витонька
Предмет: Русский язык,
автор: danilasuvorov2
Предмет: Английский язык,
автор: ощорщ
Предмет: Математика,
автор: Дашуля1234567891011