Нужна помощь

[businessman]

И какой это язык програмирования, если не Паскаль?
var input = [1,2,3,4,5];
console.log( input.map(function(a,i,arr){
return eval(arr.slice(0,i+1).join('+'))
}) );// 1,3,6,10,15

[Stilet]

Переменные это вроде натуральные числа, иррациональные числа, буквы, и т.д.

Пичаль... Может стоит купить препода?

всё ровно не работает

Я там описался.

n,s:real;

[businessman]

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

Пичаль... Может стоит купить препода?

Я там описался.

n,s:real;

Проблема не в этом. Вот тут выдаёт ошибку:
until readkey<>#13;
Пишет: Неизвестное имя 'readkey'

[Stilet]

http://pascal.net.ru/ReadKey
Так что все норм должно быть.

[businessman]

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

http://pascal.net.ru/ReadKey
Так что все норм должно быть.

Возможно онлайн паскаль не поддержывает эту команду. Сейчас установлю обычный

[newerow1989]

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

Сойдет?

[businessman]

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

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

Сойдет?

Большое спасибо! Только можно что бы числа задавились не рандомно, а вручную?

[newerow1989]

Пожалуйста! Да, можно:

   For i:=1 to 10 do
      Readln(n[i]);
   For i:=1 to 10 do
      Write(n[i],'  ');
   Writeln;

[businessman]

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

Пожалуйста! Да, можно:

   For i:=1 to 10 do
      Readln(n[i]);
   For i:=1 to 10 do
      Write(n[i],'  ');
   Writeln;

Можно весь код пожалуйста http://www.programmersforum.ru/images/icons/icon12.gif

[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.

Сойдет?