amir.tak
عضو جدید
کد:
program pascal;
uses crt;
type a= array [1..100,1..100] of integer;
var x:a; i,j,n,f,s,k,d,e,b:integer;
begin
clrscr;
write('enter n in matrix n * n:');
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
write('enter number x[',i,' , ',j,']:');
readln(x[i,j]);
if i=j then
begin
s:=x[i,j]; k:=i; b:=j;
end;
if i+j=n+1 then
begin
f:=x[i,j]; d:=i; e:=j;
end;
end;
x[k,b]:=f; x[d,e]:=s;
end;
for i:=1 to n do
begin
for j:=1 to n do
write(x[i,j]:5);
writeln;
end;
readln;
end.