Question

Изменить текст программы примера №2 так, чтобы программа обменивала максимальный элемент матрицы и первый элемент первой строки program pr2; var a : array [1..4, 1..4] of integer ; i,j, max, p, k: integer ; begin randomize; for i: =1 to 4 do for j: =1 to 4 do a[i,j]: =random (100); max: =a[1,1]; k: =1; p: =1; for i: =1 to 4 do for j: =1 to 4 do if a[i,j]> max then begin max: =a[i,j]; k: =i; p: =j; end; for i: =1 to 4 do begin for j: =1 to 4 do write (a[i,j], ' '); writeln; end; writeln ('максимальный элемент матрицы = ', max); write ('он находится в строке №' , k); writeln (' и в столбце №' , p); end.

Answer 1

Var A : array [1..4, 1..4] of integer ;
i,j, p,k: integer ;
Begin
  randomize;
  k:=1; p:=1;
  For i:=1 to 4 do
  Begin
    For j:=1 to 4 do
    Begin
      A[i,j]:=random (100);
      if A[i,j]>A[k,p] then
      begin
        k:=i;
        p:=j;
      end;
      Write(A[i,j]:3);
    end;
    Writeln;
  end;
 
  writeln ('Максимальный элемент матрицы = ', A[k,p]);
  write ('Он находится в строке №' , k);
  writeln (' и в столбце №' , p);
  Writeln('Меняем максимальный элемент матрицы и первый элемент первой строки:');
  i:=A[k,p];
  A[k,p]:=A[1,1];
  A[1,1]:=i;
  For i:=1 to 4 do
  Begin
    For j:=1 to 4 do Write(A[i,j]:3);
    Writeln;
  end;
end.