MẢNG-ARRAY:

Khái niệm: Mảng là một dãy các phần tử DL cùng kiểu, được đặt chung một tên mảng và các phần tử được phân biệt bởi các chỉ số.

Khai báo:

Array[<danh sách chỉ số>] of <kiểu phần tử>;

Bài tập về mảng: Hoán vị ma trận thưa và sắp xếp theo thứ tự tăng dần.

Program hv;

Var tg, m, n, i, j,q:integer;

A:array[1..100,1..3] of integer;

Begin

Writeln(‘nhap ma tran A’);

Write(‘so hang (m):’); readln(m);

Write(‘so cot (n):’); readln(n);

Write(‘so phan tu khac 0 (q):); readln(q);

A[1,1]:=m; a[1,2]:=n; a[1,3]:=q;

For i:=2 to q+1 do

Begin

Write(‘a[‘,i,’1]=’); readln(a[i,1]);

Write(‘a[‘,i,’2]=’); readln(a[i,2]);

Write(‘a[‘,i,’2]=’); readln(a[i,2]);

End;

For i:=2 to q+1 do

For j:=1 to q+1-i do

If a[j,1] > a[j+1,1] then

Begin

Tg:=a[j,1]; a[j,1]:=a[j+1,1]; a[j+1,1]:=tg;

Tg:=a[j,2]; a[j,2]:=a[j+1,2]; a[j+1,2]:=tg;

Tg:=a[j,3]; a[j,3]:=a[j+1,3]; a[j+1,3]:=tg;

End;

Writeln(‘hien ket qua hoan vi:’);

For i:=1 to q+1 do

Begin for j:=1 to 3 do write(‘|’,a[i,j],’|’); Writeln end; readln;

END.