1 семестр сессия / 17

Program Lab_426_Var17;

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

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

Var
J1,J2,I,J,M,N:Integer;
A,B:Massive;

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

Writeln; Writeln; Writeln;

M:=5; N:=4; J1:=2; J2:=4; Zamena(A,J1,J2,M,N);
Writeln;
M:=4; N:=3; J1:=2; J2:=3; Zamena(B,J1,J2,M,N);
End.