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.