Program  Tenchuongtrinh;
Uses crt;
type km= array[1..100] of longint;
Var A:km;  n:longint;

Procedure  Nhap;
  var i:longint;
  begin
    write('Nhap so phan tu cua day n= '); readln(n);
    for i:=1 to n do
      begin
        write('A[',i,']= '); readln(A[i]);
      end;
  end;

function  tong(d:km):longint;
  var i:longint;
  begin
     tong:=0;
     for i:=1 to n do
       tong:=tong+D[i];
  end;

Begin
         Clrscr;
         Nhap;
         Writeln('Tong la: ',tong(a));
         Readln;
End.
Nhớ chấm điểm cho em cao cao xí nha chị ^-^