06.04.2010, 00:07
|
|
Познающий
Регистрация: 17.02.2010
Сообщений: 45
С нами:
8542140
Репутация:
47
|
|
PHP код:
const
kl = 300;
type
myarr = array [1..kl, 1..kl] of integer;
var
a: myarr;
b: array [1..kl] of integer;
i, j, k, n: integer;
procedure swap(var a, b: integer);
var
t: integer;
begin
t:=a;
a:=b;
b:=t;
end;
procedure writem (a: myarr);
var
i, j: integer;
begin
writeln;
for i:=1 to n do
begin
for j:=1 to n do write(a[i, j],' ');
writeln;
end;
end;
begin
readln(n, k);
for i:=1 to n do
begin
for j:=1 to n do read(a[i, j]);
readln;
end;
writem(a);
for i:=1 to n do
begin
swap(a[k, i], a[n, i]);
b[i]:=a[k, i];
end;
writem(a);
writeln;
for i:=1 to n do write(b[i],' ');
readln;
end.
|
|
|