júp em bai tập pascal nay với các bạn nhé

[nguyenhuongit]

Cô giáo em ra bài tập pascal viet chuong trinh nay mà khó qua em ko giải được bạn nào giúp em với em cam ơn nhiều

1) Một cty co n cửa hàg.Biết doanh thu của c/h trog tháng 2/2010 . Viết PT Pascal . Nhập giữ lliệu tính và in ra doanh thu cao nhất , thấp nhất , tổng doanh thu bán hàg trog tháng của các c/h

2)Có tập hợp gồm n chứng từ thanh toán tạm ứng tiền mặt gồm các thông tin số chứng từ , tên n/v , số tiền tạm ứng số tiền đã hoàn ứng
Viết PT Pascal để nhạp số liệu tính và in ra bảng kê số tiền kòn nợ
Bảng gồm : STT , tên n/v , số tiền tạm ứng , số tiền hoàn ứng , số tiền nợ
Cuối tiền có tổng cộng số tiền tạm ứng , hoàn ứng va so tiền nợ in ra theo trật tự tăng dần of số tiền nợ

[vncamera]

Bài 1 thì đơn giản rồi bạn ah. Ta sẽ dùng mảng để lưu trữ doanh thu của từng cửa hàng.

program Bai1;
Var i,n:integer;
A:array[1..100] of Real;
max,min,tong:real;
Begin
write('Nhap vao so cua hang:');
Readln(N);
writeln('Nhap vao doanh thu cua tung cua hang trong thang 2/2010:');
For i:=1 to N do
 Begin
   write('Nhap vao doanh thu cua cua hang thu ',i,':');
   Readln(A[i]);
 End;
 Max:=A[1];Min:=A[1];
For i:=1 to N do
  if A[i]>max then Max:=A[i]
    else
      If A[i]<min then min:=A[i];
  Tong:=0;
   For i:=1 to N do Tong:=Tong+A[i];
Writeln('Doanh thu cao nhat la:',Max:4:2);
Writeln('Doanh thu thap nhat la:',Min:4:2);
writeln('Tong doanh thu ban duoc la:',tong:4:2);
Readln
End.

[quoctiepkt]

Bài 2. ta sẽ sử dụng kiểu dữ liệu bản ghi để lưu trữ thông tin về từng chứng từ

Type ct= record
     STT:integer;
     ten:string;
     tam:Real;
     Hoan:real;
     no:Real;
    End;
Var A:array[1..100] of ct;
i,j,N:integer;tg,Tong_tam,Tong_hoan,Tong_no:Real;
Begin
  write('NHap vao so chung tu:'); Readln(N);
 For i:=1 to N do
  Begin
    writeln('Nhap vao thong tin cua chung tu thu ',i,':');
    write('STT:'); Readln(A[i].STT);
    Write('Ten:'); Readln(A[i].Ten);
    write('Tien tam ung:'); Readln(A[i].tam);
    write('Tien hoanung:'); readln(A[i].hoan);
    A[i].no:=A[i].hoan-A[i].tam;
  End;
  tong_tam:=0; Tong_hoan:=0;tong_no:=0;
  For i:=1 to n do Tong_tam:=tong_tam+A[i].tam;
  For i:=1 to n do tong_hoan:=tong_hoan+A[i].hoan;
  FOr i:=1 to n do tong_no:=tong_no+A[i].no;
  writeln('Tong tam ung la:',tong_tam);
  writeln('Tong hoan ung la:',tong_hoan);
  writeln('Tong no la:', tong_no);
  {Dua ra so tien no sap tang dan}
 For i:=1 to n-1 do
 For j:= i to n do
   If A[i].no>A[j].no then
   Begin
      tg:=A[i].no;
      A[i].no:=A[j].no;
      A[j].no:=tg;
      A[i].STT:=A[j].STT;
      A[i].Ten:=A[j].Ten;
   End;
    writeln('STT   ','Ten:':20,'No:':10);
     For i:=1 to n do
    writeln(A[i].STT:3, A[i].Ten:20, A[i].no:12:2);
    Readln
END.

Mình không rõ lắm về hoàn ứng là gì? Có phải là tổng số tiền phải trả? Trong chương trình mình viết thì nợ=hoàn ứng - tạm ứng