*Trực tiếp:

var A:array[1..100] of inteegr;

*Gián tiếp

type kmang=array[1..100] of integer;

var A:kmang;

*Chương trình

program tinhtien;

uses crt;

var td,ta,th,tk,t:longint;

begin

clrscr;

write('Nhap tien dien: ');   readln(td);

write('Nhap tien an: ');   readln(ta);

write('Nhap tien hoc: ');   readln(th);

write('Nhap so tien cac khoan khac: ');   readln(tk);

t:=td+ta+th+tk;

write('Tong so tien chi tieu trong 1 tuan la: ',t);

readln

end.

Khai báo biến mảng bằng hai cách:

C1: a:aray[1..10000]of longint;

C2:

Type mang=array[1..10000]of longint;

a:mang;

Chương trình tính tiền:

uses crt;
var i,t:longint; a:array[1..100000]of longint;
begin
clrscr;
    for i:=1 to 7 do
        begin
           write('So tien ngay ',i,': ');readln(A[i]);
           INC(t,a[i]);
        end;
    writeln('Tong chi tieu: ',t);
readln;
end.