Добавил:
TheBazilius
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:1 семестр сессия / 12
.pas Program Lab_426_Var12;
Type Massive = Array [1..4,1..5] Of Real;
Procedure Poisk(A:Massive; I1,I2:Integer; Var Nom1,Nom2:Integer);
Var I,J:Integer;
Max:Real;
Begin
Max:=A[I1,1];
Nom1:=I1;
Nom2:=1;
For I:=I1 To I2 Do
For J:=2 To 5 Do
If Max<A[I,J] Then
Begin
Max:=A[I,J];
Nom1:=I;
Nom2:=J;
End;
Writeln;
End;
Var
I,J,I1,I2,Ni1,Ni2,Nj1,Nj2,Nom1,Nom2:Integer;
Max:Real;
A:Massive;
Begin
Randomize;
For I:=1 To 4 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;
I1:=1; I2:=2;
Poisk(A,I1,I2,Nom1,Nom2);
Ni1:=Nom1; Nj1:=Nom2;
I1:=3; I2:=4;
Poisk(A,I1,I2,Nom1,Nom2);
Ni2:=Nom1; Nj2:=Nom2;
Max:=A[Ni1,Nj1];
A[Ni1,Nj1]:=A[Ni2,Nj2];
A[Ni2,Nj2]:=Max;
For I:=1 To 4 Do
Begin
For J:=1 To 5 Do
Write(A[I,J],' ');
Writeln;
End;
End.
Type Massive = Array [1..4,1..5] Of Real;
Procedure Poisk(A:Massive; I1,I2:Integer; Var Nom1,Nom2:Integer);
Var I,J:Integer;
Max:Real;
Begin
Max:=A[I1,1];
Nom1:=I1;
Nom2:=1;
For I:=I1 To I2 Do
For J:=2 To 5 Do
If Max<A[I,J] Then
Begin
Max:=A[I,J];
Nom1:=I;
Nom2:=J;
End;
Writeln;
End;
Var
I,J,I1,I2,Ni1,Ni2,Nj1,Nj2,Nom1,Nom2:Integer;
Max:Real;
A:Massive;
Begin
Randomize;
For I:=1 To 4 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;
I1:=1; I2:=2;
Poisk(A,I1,I2,Nom1,Nom2);
Ni1:=Nom1; Nj1:=Nom2;
I1:=3; I2:=4;
Poisk(A,I1,I2,Nom1,Nom2);
Ni2:=Nom1; Nj2:=Nom2;
Max:=A[Ni1,Nj1];
A[Ni1,Nj1]:=A[Ni2,Nj2];
A[Ni2,Nj2]:=Max;
For I:=1 To 4 Do
Begin
For J:=1 To 5 Do
Write(A[I,J],' ');
Writeln;
End;
End.