Проверяй ещё раз, у меня всё нормально.. var
a:array[1..10,1..10]of byte;
b,c:array[1..10]of byte;
i,n,m,j,k,k1:byte;
begin
read(m,n);
for i:=1 to m do
for j:=1 to n do
read(a[i,j]);
read(k,k1);
for i:=1 to m do
for j:=1 to n do begin
b[j]:=a[k,j];
c[j]:=a[k1,j];end;
for i:=1 to m do
for j:=1 to n do begin
a[k,j]:=c[j];
a[k1,j]:=b[j];end;
for i:=1 to m do
for j:=1 to n do
write(a[i,j],' ');
end.
Пример ввода:
3 3
1 2 3
4 5 6
7 8 9
1 3
Пример вывода:
7 8 9 4 5 6 1 2 3
У меня так..
