会用pascal语言编程的请：

’为什么要用二维数组？
var i,num,p,sum:integer;
s:string;

begin
writeln('"exit" to exit');
writeln;
repeat
readln(s);
if s='exit' then break;
val(s,num,p);
sum:=sum+num;
writeln('result: ',sum);
until false;
end.

按楼上那样的确可以
但是如果要求在输入的时候真的像计算机那样也输入+号呢？
而且你的程序是错的啊！

var i,ans,n,x:integer;
begin
readln(n);
ans:=0;
for i:=1 to n do begin
read(x);
ans:=ans+x;
end;
writeln(ans);
end.
我的程序有个条件
先要输入N
表示有多少个数相加
然后回车
下面就输入要连续相加的数
每打一个就空一个或按回车

var
sum,t:longint;
begin
sum:=0;
repeat
read(t);
inc(sum,t);
until eof;
writeln(sum);
end.

{eof就是输入结束 在实例中输入完后按Ctrl+Z就是输入eof}

var i,ans,n,x:integer;
begin
readln(n);
ans:=0;
for i:=1 to n do begin
read(x);
ans:=ans+x;
end;