Question

1.найти сумму и среднее значение элементов под главной диагональю (Pascal) 2.составить программу нахождения суммы всех отрицательных элементов двумерного массива(скласти програму знаходження суми всіх від*ємних елементів двовимірного масиву) (Pascal)

Answer 1

Решение - в прилагаемом файле

Answer 2

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

program SumAndAverage;

const
  N = 5; // размерность массива

var
  arr: array[1..N, 1..N] of Integer; // объявление двумерного массива
  sum: Integer; // переменная для хранения суммы
  average: Real; // переменная для хранения среднего значения
  count: Integer; // счетчик количества элементов

begin
  sum := 0;
  count := 0;

// заполнение массива случайными числами
  Randomize; // инициализация генератора случайных чисел
  for var i := 1 to N do
  begin
    for var j := 1 to N do
    begin
      arr[i, j] := Random(10) - 5; // случайное число от -5 до 4
    end;
  end;

// вывод исходного массива
  writeln('Исходный массив:');
  for var i := 1 to N do
  begin
    for var j := 1 to N do
    begin
      write(arr[i, j], ' ');
    end;
    writeln;
  end;

// нахождение суммы и среднего значения элементов под главной диагональю
  for var i := 2 to N do // начинаем со второй строки
  begin
    for var j := 1 to i - 1 do // проходим по элементам до главной диагонали
    begin
      sum := sum + arr[i, j]; // добавляем элемент к сумме
      count := count + 1; // увеличиваем счетчик
    end;
  end;

average := sum / count; // вычисление среднего значения

writeln;
  writeln('Сумма элементов под главной диагональю: ', sum);
  writeln('Среднее значение элементов под главной диагональю: ', average:0:2);
end.

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

program SumOfNegatives;

const
  N = 5; // размерность массива

var
  arr: array[1..N, 1..N] of Integer; // объявление двумерного массива
  sum: Integer; // переменная для хранения суммы

begin
  sum := 0;

// заполнение массива случайными числами
  Randomize; // инициализация генератора случайных чисел
  for var i := 1 to N do
  begin
    for var j := 1 to N do
    begin
      arr[i, j] := Random(21) - 10; // случайное число от -10 до 10
    end;
  end;

// вывод исходного массива
  writeln('Исходный массив:');
  for var i := 1 to N do
  begin
    for var j := 1 to N do
    begin
      write(arr[i, j], ' ');
    end;
    writeln;
  end;

// нахождение суммы всех отрицательных элементов
  for var i := 1 to N do
  begin
    for var j := 1 to N do
    begin
      if arr[i, j] < 0 then // если элемент отрицательный
      begin
        sum := sum + arr[i, j]; // добавляем элемент к сумме
      end;
    end;
  end;

writeln;
  writeln('Сумма всех отрицательных элементов: ', sum);
end.

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