doi cho 2 hang

var i,j,k,n,m,l,h:integer;
a:array[1..10,1..10]of integer;
BEGIN
writeln('* lam bai tap ve nha *':50);
writeln('* cac van de ve ma tran *':50);
repeat
write(' nhap hanng n= ');readln(n);
if not ((0 until ((0 repeat
write(' nhap cot m= ');readln(m);
if not ((0 until ((0 repeat
write(' nhap hang can chuyen k= ');readln(k);
if not ((0 until ((0 repeat
write(' nhap hang can chuyen l= ');readln(l);
if not ((l<=n)and(k<>l)and(l>0))then writeln('moi ban nhap lai':30);
until ((l<=n)and(k<>l)and(l>0));
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']= ');readln(a[i,j]);
end;
for i:=1 to n do
BEGIN
for j:=1 to m do WRITE( a[i,j]:5);writeln;writeln;
end;
for i:=1 to n do
for j:=1 to m do
begin
h:=a[k,j];a[k,j]:=a[l,j];a[l,j]:=h;
end;
writeln('doi cho hang ',k,' va hang ',l,' la: ');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:5);writeln;writeln;
end;readln;
end.

Cho mình ý kiến với cả hai bài cậu mới post lên nhé:
- Bạn viết code quá dài dòng nhiều đoạn lặp lại là thừa thãi. Không biết bạn học tớ chương trình còn chưa nếu học rồi thì khi nhập với kiểu của bạn thì nên dùng chương trình con như thế gọn hơn.
- Nếu bạn đã cho hạn chế hàng cột là 6 or 7 thì bạn không cần khai báo mảng tới tận 10 ok.
- Rất tiếc là bài trên của bạn đã sai, hình như bạn hơi máy móc phần mảng 2 chiều này. Bạn cứ thử nhập n là một số chẵn đàm bảo chẳng đổi chỗ gì cả. Chỉ luôn chỗ bị lỗi cho bạn khỏi tìm lâu:

for i:=1 to n do
for j:=1 to m do
begin
h:=a[k,j];a[k,j]:=a[l,j];a[l,j]:=h;
end;

Sorry, mình hơi nặng lời nhưng mình dị ứng với cái tên nick của bạn.

ẤY BẠN Core2Dual đừng có nóng !
Tôi nhiệt liệt hoan nghêng bạn đã tham gia và không ngại chia sẻ kinh nghiẹm lập
trình cua bạn với chúng Tôi .Mong bạn đóng góp thêm nhiều bài mới ,mọi người sẽ cùng nhau trao đổi để bạn và mọi ngưòi chúng ta hoàn thiện bài của mình hơn. Tôi thấy những ý kiến của bạn Core2Dual là đúng đấy bạn nên tiếp thu những ý kiến ấy để hoàn thiện bài của mình hơn nhé.

À MÀ LẦN SAU POST BÀI NHỚ VIẾT LUÔN NGUYÊN CÁI ĐỀ LÊN NỮA NHÉ!
THANK YOU !!!!!!!