Question

Помогите написать программу на PascalABC. Найдите положительные и отрицательные целые числа в заданном численном значении n и определите сумму абсолютных значений.

Answer 1

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.