Chi nhánh bưu điện XY cần quản lý việc vận chuyển bưu phẩm của khách hàng. Chi nhấnh bưudiện XY đã tế chức một cơ sở dữ liệu gồm các thông tin cần quản lý sau: MA_KH; HO_TEN; DIA_CHI; SO JT;MA SO; HINH_THÚC; DON_GIA; MA_KH; MA_S@; TRONG LUONG; THANH_TIEN; NGAY_GUI. Yêu cầu: Hãy phân chia các thông tin quản lý thành các đối tượng(HS tự đặt tên đối tượng )
Chi nhánh bưu điện XY cần quản lý việc vận chuyển bưu phẩm của khách hàng. Chi nhấnh bưudiện XY đã tế chức một cơ sở dữ liệu gồm các thông tin cần quả
By Serenity
uses crt;
var a: array[1..100] of integer;
i,n,min, vt: integer;
begin
clrscr;
write (‘nhap so phan tu: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap a[‘,i,’]: ‘); readln (a[i]);
if min>a[i] then
begin
min:=a[i];
vt:=i;
end;
end;
writeln (‘phan tu nho nhat la a[‘,vt,’]= ‘,a[vt]);
readln;
end.