Ввести целочисленную матрицу {Aij}i=1..n,j=1..m. Найти столбец с наибольшей по абсолютной величине суммой элементов и заменить все элементы этого столбца числом -3333 — Pascal(Паскаль)

program PascalGuru;

uses crt;

var
  A: array [1 .. 100, 1 .. 100] of integer;
  B: array [1 .. 100] of integer;
  i, j, n, m, summa, max: integer;

  { -------------------------------------------- }
begin
  write('N= ');
  readln(n);
  write('M= ');
  readln(m);

  writeln('Vvedite elementy massiva A: ');
  for i := 1 to n do
    for j := 1 to m do
    begin
      write('A[', i, ',', j, ']=');
      readln(A[i, j]);
    end;

  clrscr;
  write('Vot vvedennyi vami massiv A: ');
  for i := 1 to n do
  begin
    writeln;
    for j := 1 to m do
      write(A[i, j]:4, ' ');
  end;

  summa := 0;
  for i := 1 to m do
  begin
    for j := 1 to n do
      summa := summa + A[j, i];
    B[i] := abs(summa);
    summa := 0;
  end;

  max := 1;
  for j := 1 to m do
    if B[j] > B[max] then
      max := j;

  for i := 1 to m do
    A[i, max] := 3333;

  writeln;
  writeln;
  write('Vot obnovlennyi massiv A: ');
  for i := 1 to n do
  begin
    writeln;
    for j := 1 to m do
      write(A[i, j]:4, ' ');
  end;

  readln;

end.

Leave a Comment

− 7 = 1