Нужна помощь

[businessman]

Сообщение от newerow1989

var n:array[1..10] of integer;
    i,s:integer;
begin
    For i:=1 to 10 do
      Readln(n[i]);
   For i:=1 to 10 do
      Write(n[i],'  ');
   Writeln;
   s:=0;
   For i:=1 to 10 do
   begin
      s:=s+n[i];
      If i>1 then
         Write(', ');
      Write(s);
   end;
   Readln;
end.

Сойдет?

Да! Как я могу вас отблагодарить?