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

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

Procedure Poisk(A:Massive; J:Integer; Var Nom:Integer);
Var I:Integer;
Max:Real;
Begin
Max:=A[1,J];
Nom:=1;
For I:=2 To 4 Do
If Max<A[I,J] Then
Begin
Max:=A[I,J];
Nom:=I;
End;
End;

Var
I,J,N1,N2,Nom:Integer;
Max:Real;
A:Massive;

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

Writeln;Writeln('posle perastanovki : ');Writeln;
J:=1; Poisk(A,J,Nom); N1:=Nom;
J:=3; Poisk(A,J,Nom); N2:=Nom;
Max:=A[N1,1];
A[N1,1]:=A[N2,3];
A[N2,3]:=Max;
For I:=1 To 4 Do
Begin
For J:=1 To 3 Do
Write(A[I,J],' ');
Writeln;
End;
End.
Соседние файлы в папке 1 семестр сессия