viết chương trình nhập các phần tử cho mảng, cho tổng các phần tử lớn hơn 1000 thì dừng Mọi người làm giúp mình câu này nha cám ơn nhìu

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