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