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.

Answer 2

Конечно, вот пример программы на PascalABC, которая находит положительные и отрицательные целые числа в заданном численном значении n и определяет сумму абсолютных значений:

arduinoCopy code
program PositiveNegativeSum;

var
  n, i, positiveSum, negativeSum: integer;

begin
  write('Введите число n: ');
  readln(n);
  
  positiveSum := 0;
  negativeSum := 0;
  
  for i := 1 to n do
  begin
    if i > 0 then
      positiveSum := positiveSum + i
    else
      negativeSum := negativeSum + i;
  end;
  
  writeln('Сумма положительных чисел: ', positiveSum);
  writeln('Сумма отрицательных чисел: ', negativeSum);
  writeln('Сумма абсолютных значений: ', abs(positiveSum) + abs(negativeSum));
  
  readln;
end.

Программа запрашивает у пользователя число n. Затем она инициализирует две переменные positiveSum и negativeSum нулевыми значениями. Затем программа использует цикл for, чтобы перебрать числа от 1 до n и определить, является ли каждое число положительным или отрицательным. Если число положительное, оно добавляется к positiveSum, а если отрицательное - к negativeSum.

В конце программы выводится сумма положительных чисел, сумма отрицательных чисел и сумма абсолютных значений.

Надеюсь, это поможет!