Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

ПАСКАЛЬ!!!
Изменить текст программы примера №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.

Ответ оставил Гость

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.