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

Program Lab_426_Var13;

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

Procedure Poisk(A:Massive; J1,J2:Integer; Var Nom1,Nom2:Integer);
Var I,J:Integer;
Min:Real;
Begin
Min:=A[1,J1];
Nom1:=1;
Nom2:=J1;
For I:=2 To 3 Do
For J:=J1 To J2 Do
If Min>A[I,J] Then
Begin
Min:=A[I,J];
Nom1:=I;
Nom2:=J;
End;
Writeln;
End;

Var
I,J,J1,J2,Ni1,Ni2,Nj1,Nj2,Nom1,Nom2:Integer;
Min:Real;
A:Massive;

Begin
Randomize;
For I:=1 To 3 Do
Begin
For J:=1 To 4 Do
Begin
A[I,J]:=Random(21) - 10;
Write(A[I,J],' ');
End;
Writeln;
End;

Writeln;Writeln('posle perastanovki : ');Writeln;


J1:=1; J2:=2;
Poisk(A,J1,J2,Nom1,Nom2);
Ni1:=Nom1; Nj1:=Nom2;
J1:=3; J2:=4;
Poisk(A,J1,J2,Nom1,Nom2);
Ni2:=Nom1; Nj2:=Nom2;
Min:=A[Ni1,Nj1];
A[Ni1,Nj1]:=A[Ni2,Nj2];
A[Ni2,Nj2]:=Min;

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