Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
11
Добавлен:
05.06.2018
Размер:
1.31 Кб
Скачать
Program Lab_426_Var15;

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

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

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

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

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


N:=3; Poisk(A,N,Nom1,Nom2);
Ni1:=Nom1; Nj1:=Nom2;
N:=4; Poisk(B,N,Nom1,Nom2);
Ni2:=Nom1; Nj2:=Nom2;
Min:=A[Ni1,Nj1];
A[Ni1,Nj1]:=B[Ni2,Nj2];
B[Ni2,Nj2]:=Min;

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

End.
Соседние файлы в папке 1 семестр сессия