Question

Пусть а[1], ..., a[n] - целые числа. Требуется найти сумму отрицательных и сумму неотрицательных элементов массива. pascal

Answer 1

Const n=5; var a:array[1..n] of longint;i,max,min:integer;beginmax:=0;min:=0;writeln('введите числа , для изменения кол-ва вводимых чисел изменить в 1-ой строчке с 5на любое значение >2 ');for i:=1 to n do read(a[i]);for i:=1 to n do beginif a[i]>0 then max:=max+a[i];if a[i]<0 then min:=min+a[i];end;writeln('сумма положительных чисел = ',max);writeln('сумма отрицательных чисел = ',min);end.

Answer 2

Для решения этой задачи нахождения суммы отрицательных и суммы неотрицательных элементов массива в Pascal, можно воспользоваться следующим кодом:

pascalCopy code
program SumOfNegativesAndNonNegatives;

const
  n = 5; // Задайте здесь размер массива

var
  a: array[1..n] of integer;
  negativeSum, nonNegativeSum: integer;
  i: integer;

begin
  // Вводим элементы массива
  writeln('Введите элементы массива: ');
  for i := 1 to n do
    readln(a[i]);

  // Инициализируем суммы
  negativeSum := 0;
  nonNegativeSum := 0;

  // Находим суммы отрицательных и неотрицательных элементов
  for i := 1 to n do
  begin
    if a[i] < 0 then
      negativeSum := negativeSum + a[i]
    else
      nonNegativeSum := nonNegativeSum + a[i];
  end;

  // Выводим результаты
  writeln('Сумма отрицательных элементов: ', negativeSum);
  writeln('Сумма неотрицательных элементов: ', nonNegativeSum);

end.

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