Hãy viết khai báo biến mảng bằng hai cách Viết và in ra màn hình chương trình tính tổng số tiền gia đình đã chi trong 1 tuần

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