[Kopik]

Чувствую, этот вопрос уже не раз поднимался, но...
Есть задача разбить отрезок на N частей с шашом h и записать его значения в массив x[i]=x[i-1]+h*N;

Но потом в задании указано, чтобы N задавалось на форме. Получается, я уже не задам массив как
var x[i]: array [1..20] of real;
ведь N произвольное. Как задавать количество элементов уже в процессе выолнения?

[Страдалецъ]

Если вопрос только по работе с динамическим массивом, то так:

Код:

Var
 A: Array of Real;
 ArrSize,i: Integer;
begin 
 ArrSize := 20;
 SetLength(A, ArrSize);
 for i := 0 to ArrSize
 do A[i] := Random(10);
 ArrSize := 40;
 SetLength(A, ArrSize);
 for i := 0 to ArrSize
 do A[i] := Random(10);
end;

[Kopik]

Сообщение от Страдалецъ

Если вопрос только по работе с динамическим массивом, то так:

Код:

Var
 A: Array of Real;
 ArrSize,i: Integer;
begin 
 ArrSize := 20;
 SetLength(A, ArrSize);
 for i := 0 to ArrSize
 do A[i] := Random(10);
 ArrSize := 40;
 SetLength(A, ArrSize);
 for i := 0 to ArrSize
 do A[i] := Random(10);
end;

Да, спасибо большое.