помогите разобраться с динамическими массивами

[kai.nbt]

здравствуйте,товарищи!
задача такая:дан массив C произвольной длины N, нужно сделать новый массив P из C, чтобы каждый его элемент равнялся сумме всех предыдущих элементов массива C.как это сделать я знаю,но не знаю как описать "произвольную длину N".
помогите пожалуйста! заранее спасибо!

[Колядин Максим]

Код: Выделить всё

var m: array [1..32767] of integer;
n,i: integer;
begin
readln(n);
for i:= 1 to n do
...
...
end.

[Колядин Максим]

Если нужен, то вот полный код программы:

Код: Выделить всё

var c,p: array [1..10000] of integer;
n,i,j,sum: integer;
begin
readln(n);                       {размер массива}
for i:= 1 to n do readln(c[i]);
for i:= 1 to n do begin
sum:=0;
for j:= 1 to i do sum:=sum+c[j];
p[i]:=sum;
end;
end.

[BBB]

Колядин Максим,
А если пользователь укажет n > 10000 ??

Может, лучше воспользоваться динамическим выделение памяти через GetMem ?

[BBB]

Код: Выделить всё

for i:= 1 to n do begin
  sum:=0;
  for j:= 1 to i do sum:=sum+c[j];
  p[i]:=sum;
end;

И, поскольку для каждого I (2 < I <= N) выполняется:
P = Сумма (C[1] + ... C[I-1] ), то
справедливо равенство:
P [I + 1] = Сумма (C[1] + ... C[I-1] + C ) = Сумма (C[1] + ... C[I-1]) + C = P + C

И алгоритм можно соптимизировать:

Код: Выделить всё

P [i] = 0;
for i:= 2 to N do begin
  P [I] = P [i - 1] + C [i - 1];
end;

[somewhere]

for i:= 1 to n do readln(c);

А если пользователь укажет n > 10000 ??

Ага, и прикинь их потом все забивать? :-))

[Хыиуду]

Если это Дельфи - лучше использовать setlength(c,N);

[kai.nbt]

Колядин Максим,
А если пользователь укажет n > 10000 ??

Может, лучше воспользоваться динамическим выделение памяти через GetMem ?

спасибо за совет!только я не знаю как это)
а можно ввести размерность матрицы в режиме диалога?то есть вводишь N и создается матрица NxN.
п.с. это не дельфи а паскаль

[kai.nbt]

Если нужен, то вот полный код программы:

Код: Выделить всё

var c,p: array [1..10000] of integer;
n,i,j,sum: integer;
begin
readln(n);                       {размер массива}
for i:= 1 to n do readln(c[i]);
for i:= 1 to n do begin
sum:=0;
for j:= 1 to i do sum:=sum+c[j];
p[i]:=sum;
end;
end.

Большое спасибо! я наверное так и сделаю.только array[1..65535] сделаю,ибо препод урод,может и заставить

Ага, и прикинь их потом все забивать? :-))

[BBB]

спасибо за совет!только я не знаю как это)
а можно ввести размерность матрицы в режиме диалога?то есть вводишь N и создается матрица NxN.

Вроде, изначально решь шла об одномерном массиве?