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

Program Lab_426_Var10;

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

Procedure Poisk(A:Massive; J:Integer; Var Nom:Integer);
  Var I:Integer;
      Max:Real;
  Begin
  Max:=A[1,J];
  Nom:=1;
  For I:=2 To 4 Do
    If Max<A[I,J] Then
      Begin
      Max:=A[I,J];
      Nom:=I;
      End;
  End;
  
Var
  I,J,N1,N2,Nom:Integer;
  Max:Real;
  A:Massive;
  
Begin
Randomize;
For I:=1 To 4 Do
  Begin
  For J:=1 To 3 Do
    Begin
    A[I,J]:=Random(21) - 10;
    Write(A[I,J],' ');
    End;
  Writeln;
  End;
  
Writeln;Writeln('posle perastanovki : ');Writeln; 
J:=1; Poisk(A,J,Nom); N1:=Nom;
J:=3; Poisk(A,J,Nom); N2:=Nom;
  Max:=A[N1,1];
  A[N1,1]:=A[N2,3];
  A[N2,3]:=Max;
For I:=1 To 4 Do
  Begin
  For J:=1 To 3 Do
    Write(A[I,J],' ');
  Writeln;
  End;
End.