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

Type Massive = Array [1..5,1..5] Of Integer;

Procedure Zamena(Var A:Massive; I1,I2,M,N:Integer);
Var
X,I,J:Integer;
Begin
For I:=1 To M Do
Begin
For J:=1 To N Do
If (I=I1) Then
Begin
X:=A[I1,J];
A[I1,J]:=A[I2,J];
A[I2,J]:=X;
Write(A[I1,J],' ');
End
Else Write(A[I,J],' ');
Writeln;
End;
End;

Var
I1,I2,I,J,M,N:Integer;
A,B:Massive;

Begin
Randomize;
Writeln('1 : ');
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('2 : ');
For I:=1 To 5 Do
Begin
For J:=1 To 5 Do
Begin
B[I,J]:=Random(21) - 10;
Write(B[I,J],' ');
End;
Writeln;
End;

Writeln; Writeln; Writeln;

M:=3; N:=4; I1:=2; I2:=3; Zamena(A,I1,I2,M,N);
Writeln;
M:=5; N:=5; I1:=2; I2:=4; Zamena(B,I1,I2,M,N);
End.
Соседние файлы в папке 1 семестр сессия