Массивы и генератор случайных чисел

[Psyka]

Привет титаны программирования! Вот какая у меня проблема:
есть некое число n и на основе него надо сгенерировать одномерный динамический массив чисел, сохранить его в памяти и вывести массив полученной размерности в окно memo1. Число n берется из Edit1.Text. Помогите плиз!

[Карась]

Что значит на "основе числа n"?

И какова размерность массива? Ибо в условии написанно, что он динамический.... Но не написанно как и кто указывает его размерность...

[eoln]

Ну предположим, что n - и размер массива и верхний предел чисел в нём

procedure TForm1.Button5Click(Sender: TObject);
const
  MaxSize = 100; 
type
  TArray = array[1..MaxSize] of integer;
  PArray = ^TArray;
var
  Mas: PArray;
  N, I: Integer;
begin
  N := strtoint(edit1.text);
  GetMem(Mas, N * sizeof(integer));
  for I := 1 to N do mas^[I] := random(N);
  Memo1.Clear;
  for I := 1 to N do  memo1.Lines.Add(inttostr(mas^[I]));
  FreeMem(Mas, N * sizeof(integer));
end;

[Psyka]

Уважаенмые! Вы как то все усложняете! Все что мне надо определить динамический одномерный массив, сохранить его в памяти, и вывести его в поле memo1. Я в МИФИ учусь и вот вам прям цитата задания:
Сгенерируйте массив целых чисел, сохраните его в памяти и выполните вывод массива полученной размерности в окно Memo1
procedure TForm1._________(sender:TObject);
Var___________
begin
_____
_____
_____
_____
_____
_____
end;
end;
это прям в задании то есть именно в такое количество и решается это задача.

[Serge_Bliznykov]

Psyka, Вы прежде всего, учитесь чётко формулировать задание. или хотя бы переписывать его научитесь. вот цитата из Вашего первого поста:

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

некое число n и на основе него надо сгенерировать одномерный динамический массив чисел

Откуда взялось "и на основе него" ?? Вы сами придумали? Вот Вам и попытались помочь, исходя из Вашей постановки задачи!

берите Выше указанный код. Вешайте на кнопку. Он Вам подходит. можете только в начале, сразу после begin добавить Randomize;
и в Random(n) вместо n поставить ЛЮБОЕ ЦЕЛОЕ число - это максимум - граница, до которой будут генериться случайные числа...

и на будущее учтите, что в точных науках (к коим относится и программирование) иногда предлог, запятая, окончание слова, порядок слов кардинально меняют и смысл и алгоритм задачи...

[Stilet]

Чтобы окончательно померить спорщиков немного перефразирую код Eoln'а:

procedure TForm1.Button5Click(Sender: TObject);   
const   
var   
  Mas: Array of integer;   
  N, I: Integer;   
begin   
  N := strtoint(edit1.text);   
  setlength(mas,n+1);
  for I := 1 to N do mas[i] := random(N);   
  Memo1.Clear;   
  for I := 1 to N do  memo1.Lines.Add(inttostr(mas[i]));   
end;

Думаю это достаточно полный ответ на вопрос.

[Psyka]

Вот то что надо в точку!!! Благодарность Stilet, вы то что надо сделали!! Сразу видно человек в теме