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

Program Lab_426_Var11;

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

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