1 семестр сессия / 15

Program Lab_426_Var15;

Type Massive = Array [1..4,1..4] Of Real;

Procedure Poisk(A:Massive; Var N,Nom1,Nom2:Integer);
  Var I,J:Integer;
      Min:Real;
  Begin
  Min:=A[1,1];
  Nom1:=1;
  Nom2:=1;
  For I:=1 To N Do
    For J:=2 To N Do
      If (Min>A[I,J]) And (I=J) Then
        Begin
        Min:=A[I,J];
        Nom1:=I;
        Nom2:=J;
        End;
  Writeln;
  End;
  
Var
  I,J,N,Ni1,Ni2,Nj1,Nj2,Nom1,Nom2:Integer;
  Min:Real;
  A,B:Massive;
  
Begin
Randomize;
Writeln('1 : ');
For I:=1 To 3 Do
  Begin
  For J:=1 To 3 Do
    Begin
    A[I,J]:=Random(21) - 10;
    Write(A[I,J],' ');
    End;
  Writeln;
  End;
Writeln('2 : ');
For I:=1 To 4 Do
  Begin
  For J:=1 To 4 Do
    Begin
    B[I,J]:=Random(21) - 10;
    Write(B[I,J],' ');
    End;
  Writeln;
  End;
  
Writeln;Writeln('posle perastanovki : ');Writeln; 


N:=3; Poisk(A,N,Nom1,Nom2);
    Ni1:=Nom1; Nj1:=Nom2;
N:=4; Poisk(B,N,Nom1,Nom2);
    Ni2:=Nom1; Nj2:=Nom2;
          Min:=A[Ni1,Nj1];
          A[Ni1,Nj1]:=B[Ni2,Nj2];
          B[Ni2,Nj2]:=Min;

Writeln('1 : ');
For I:=1 To 3 Do
  Begin
  For J:=1 To 3 Do
    Write(A[I,J],' ');
  Writeln;
  End;
Writeln('2 : ');
For I:=1 To 4 Do
  Begin
  For J:=1 To 4 Do
    Write(B[I,J],' ');
  Writeln;
  End;
  
End.