Решено: Инициализация массива в паскале. (Процедура для инициализации.)

[baldman88]

Добрый день. Помогите пожалуйста! Есть задание, в котором необходимо создать 3 массива. Они все разной длины (одномерные). Хотел сделать как в С, но не тут то было. В общем вот код:

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

procedure init(X : array of real; n : integer);
begin
   for i:= 1 to n do
      X[i]:= (random(255)-100)/3.0;
end; { init }

Как можно такое реализовать на паскале?

[Crazy]

что бы параметры туды сюды передавать в паскале, нужна var писать.
если память не изменяет

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

procedure init(var X : array of real; n : integer);

[baldman88]

Работает Огромное спасибо!