Цитата:
Сообщение от Madara
В этой задаче я испытал огромные сложности, не придя к правильному решению...
|
Да тоже, в общем, пустяки:
Код:
Type
Matr=Array[1..5,1..5] of Integer;
Var
A,B:Matr;
p,q:Integer;
Procedure Exchange(N,s1,s2:Integer; Var C:Matr);
var
V:Array[1..5] of Integer;
j:integer;
begin
for j:=1 to N do V[j]:=C[s1,j];
for j:=1 to N do C[s1,j]:=C[s2,j];
for j:=1 to N do C[s2,j]:=V[j];
end;
Begin
Randomize;
Writeln('Old A matrix:');
for p:=1 to 3 do
begin
for q:=1 to 4 do
begin
A[p,q]:=Random(10);
Write(A[p,q]:3);
end;
writeln;
end;
writeln;
Writeln('Old B matrix:');
for p:=1 to 5 do
begin
for q:=1 to 5 do
begin
B[p,q]:=Random(10);
Write(B[p,q]:3);
end;
writeln;
end;
writeln;
Exchange(4,2,3,A);
Exchange(5,2,4,B);
Writeln('New A matrix:');
for p:=1 to 3 do
begin
for q:=1 to 4 do Write(A[p,q]:3);
writeln;
end;
writeln;
Writeln('New B matrix:');
for p:=1 to 5 do
begin
for q:=1 to 5 do Write(B[p,q]:3);
writeln;
end;
Readln
End.