*Cú pháp:

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

$---------$

Số hàng ($\forall m$)

Số cột ($\forall n$)

*Bạn có thể đổi hàng thành n và cột bằng m cũng được nhé.

*Ví dụ (in ra màn hình các số nhập từ bàn phím):

uses crt;
var a:array[1..100,1..100] of longint;
      i,j,m,n:longint;
begin
      clrscr;
      write('Nhap so cot: '); readln(n);
      write('Nhap so hang: '); readln(m);
      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 
            for j:=1 to m do 
                  write(a[i,j],' ');
      readln
end.

**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.