Cho mình xin code về mảng hai chiều và giải thích với ạ

**Cú pháp mảng 2 chiều (ma trận):

Var <tên biến mảng> : array[<chỉ số đầu> .. <chỉ số cuối>, <chỉ số đầu> .. <chỉ số cuối>] of <kiểu dữ liệu> ;

**Giải thích:

– Khai báo thêm các biến: i và j (biến đếm), m và n (số hàng, cột) [có thể thay đổi tên biến]

– m: hàng, i: biến đếm hàng.

– n: cột, j: biến đếm cột.

– Nhập, xuất ma trận: sử dụng 2 vòng lặp i, j.

– Sử dụng giá trị của hàng i cột j: <tên biến mảng> [i, j];

– Chỉ số đầu, cuối là các giá trị thuộc N*.

– Kiểu dữ liệu bất kì.

**Cách nhập xuất ma trận.

– Nhập ma trận:

for i:=1 to m do
      for j:=1 to n do
      begin
               write(‘A[‘, i, ‘, ‘, j, ‘] = ‘); readln(A[i,j]);
      end;

– Xuất ma trận:

for i:=1 to m do
       for j:=1 to n do
       begin
                write(A[i,j]:3);
                if j=n then writeln;
       end;
[Các biến có thể thay đổi]

**Viết chương trình (hoàn chỉnh):

program pht;
uses crt;
  var A: array[1..500, 1..500] of integer;
        i, j, m, n: integer;
begin
         clrscr;
         write(‘Nhap so hang = ‘); readln(m);
         write(‘Nhap so cot = ‘); readln(n);
         for i:=1 to m do
                  for j:=1 to n do
                  begin
                              write(‘A[‘, i, ‘, ‘, j, ‘] = ‘); readln(A[i,j]);
                  end;

         for i:=1 to m do
                  for j:=1 to n do
                  begin
                               write(A[i,j]:3);
                               if j=n then writeln;
                  end;
          readln
end.