Question

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

Answer 1

Відповідь:

Пояснення:ашшалалптплплалпьпьп ащаддалплплплплплаьал

Answer 2

Вот пример программы на Pascal, которая выполняет указанные действия:

pascalCopy code
program ModifyMatrix;
const
  N = 3; // Размерность матрицы (замените на нужное значение)
var
  Matrix1, Matrix2: array[1..N, 1..N] of Integer;
  i, j, SumNeg, NegCount: Integer;
  AvgNeg: Real;
begin
  // Ввод матрицы Matrix1
  writeln('Введите элементы матрицы:');
  for i := 1 to N do
    for j := 1 to N do
      read(Matrix1[i, j]);

  // Инициализация переменных для подсчета среднего арифметического отрицательных элементов
  SumNeg := 0;
  NegCount := 0;

  // Находим сумму и количество отрицательных элементов в Matrix1
  for i := 1 to N do
    for j := 1 to N do
      if Matrix1[i, j] < 0 then
      begin
        SumNeg := SumNeg + Matrix1[i, j];
        Inc(NegCount);
      end;

  // Если есть отрицательные элементы, то вычисляем среднее арифметическое и модифицируем матрицу
  if NegCount > 0 then
  begin
    AvgNeg := SumNeg / NegCount;

    // Копируем Matrix1 в Matrix2 и модифицируем элементы
    for i := 1 to N do
      for j := 1 to N do
      begin
        Matrix2[i, j] := Matrix1[i, j];
        if Matrix2[i, j] <> 0 then
          Matrix2[i, j] := Matrix2[i, j] - Round(AvgNeg);
      end;

    // Выводим модифицированную матрицу Matrix2
    writeln('Модифицированная матрица:');
    for i := 1 to N do
    begin
      for j := 1 to N do
        write(Matrix2[i, j], ' ');
      writeln;
    end;
  end
  else
    writeln('В матрице нет отрицательных элементов.');

  readln;
end.

Программа сначала запрашивает у пользователя элементы матрицы, затем находит среднее арифметическое отрицательных элементов и модифицирует элементы другой матрицы, исключая элементы со значением 0. Наконец, программа выводит модифицированную матрицу на экран.