Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
11
Добавлен:
05.06.2018
Размер:
1.04 Кб
Скачать
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.
Соседние файлы в папке 1 семестр сессия