program oken;

uses crt;

var a: array [1..10000] of longint;

i,n,tong:longint;

begin

clrscr;

write('nhap so phan tu cua mang: '); readln(n);

tong:=0; i:=1;

while tong<=1000 do

begin

write('a[',i,']: '); readln(a[i]);

tong:=tong+a[i];

i:=i+1;

end;

writeln('Tong lon hon 1000 cua ',i,' phan tu: ',tong);

readln;

end.

uses crt;
var s,n:integer;
begin
   while s<=1000 do
   begin
      write('Nhap gia tri phan tu: '); readln(n);
      s:=s+n;
   end;
   writeln('Tong la: ',s);
   readln
end.

Cách này không cần khai báo mảng cho nên chương trình đơn giản, dễ hiểu và tối ưu hơn.

Có thể là một ý tưởng sáng tạo và mới mẻ cho đề bài này, nhưng với một cách ra đề khác :D