Паскаль, массивы

[Gesik]

Здравствуйте. Одногруппница принесла задачу по паскалю, выделенную ручкой никак не может решить.

Помогите пожалуйста.

[Stilet]

const x:array[1..2] of integer=(1,2);
var y:array[1..2] of integer; i,j:integer;
begin
 y[1]:=x[1];
 for i:=2 to 2 do begin 
  for j:= 2 to i do y[i]:=y[i]+x[j];
  write(y[i]:5);
 end;
 readln;
end.

Подходит?

[Gesik]

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

const x:array[1..2] of integer=(1,2);
var y:array[1..2] of integer; i,j:integer;
begin
 y[1]:=x[1];
 for i:=2 to 2 do begin 
  for j:= 2 to i do y[i]:=y[i]+x[j];
  write(y[i]:5);
 end;
 readln;
end.

Подходит?

Скоро проверю. Спасибо за помощь.

[Serge_Bliznykov]

Stilet, а почему n нет? не уверен, что новичку будет легко понять, как изменить данный пример, если элементов более двух...

кроме того, пример содержит грубую ошибку: внутренний цикл нужно делать от единицы (for j:=1 to ...)

я бы так пример скорректировал:

const 
  n = 3; {размерность массива}
  x:array[1..n] of integer=(10,20,30); {пример заполнения массива x}

var 
  y:array[1..n] of integer; 
  i,j:integer;
begin
 y[1]:=x[1];
 for i:=2 to n do begin 
  y[i] := 0; {обнулили сумму перед подсчётом}
  for j:= 1 to i do y[i]:=y[i]+x[j]; {просуммировали все элементы от 1}
  write(y[i]:5);
 end;
 readln;
end.

[Stilet]

почему n нет?

Потому что девушка не моя )

пример содержит грубую ошибку

Да, согласен, недодумал.

[Serge_Bliznykov]

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

Потому что девушка не моя )

Это серьёзный аргумент, тут мне возразить нечего!

[Poma][a]

А размерность это что?
Это

const 
    SIZE = 1000;
var
    a : array [1..SIZE] of Integer;

или это

a : array [1..100] of Integer;
...
WriteLn ('Введите размерность массива');
ReadLn (n);

for i := 1 to n do
   ....

?

[Serge_Bliznykov]

Poma][a, можно и так и так.
Поскольку в задаче сказано, что дан массив X размерности n, но не сказано, что размерность задаётся операторов в процессе работы (и откуда берутся значения в массиве X, кстати, в условиях задачи тоже не оговаривается!).
Как и во всех подобных случаях, можно или уточнять у преподавателя, как лучше, или, если понимаешь что к чему, делать так, как САМОМУ проще удобнее и доказывать преподавателю, что выполненный код полностью соотвествует заданию.

Выбирать Gesik...