Помогите написать программу на PascalABC. Найдите положительные и отрицательные целые числа в заданном численном значении n и определите сумму абсолютных значений.
Ответы
Ответ дал:
0
PascalABC.NET 3.4.2, сборка 1827 от 08.10.2018
Внимание! Если программа не работает, обновите версию!
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
Writeln('Сумма отрицательных чисел равна ', a.Where(t -> t < 0).Sum);
Writeln('Сумма положительных чисел равна ', a.Where(t -> t > 0).Sum);
Write('Максимальное по модулю число ');
var (m1, m2) := (a.Min, a.Max);
if Abs(m1) > Abs(m2) then m1.Println
else m2.Println
end.
Приложения:
Ответ дал:
0
спасибо)
Ответ дал:
0
Пожалуйста
Ответ дал:
0
Исправил опечатку в слове "чисел"
Ответ дал:
0
хорошо
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад