Question

Nhập từ bàn phím 1 dãy số nguyên không âm. Hãy in ra màn hình chỉ số i nhỏ nhất sao cho tổng các phân tử từ 1 đến i của dãy số ấy lớn hơn 100 ?

Answer 1

uses crt;
var a,vt:array[1..100]of integer;
n,i,t,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]>=0;
end;
t:=0;
for i:=1 to n do
begin
if t<100 then
begin
t:=t+a[i];
dem:=dem+1;
vt[dem]:=i;
end;
end;
writeln(vt[dem]);
readln;
end.