Непонятна работа связки randomize - random - Pascal

Формулировка задачи:

При создании процедуры заполнения массива случайными цифрами, в прогоне программы через RUN массивы получаются с одинаковыми данными, в прогоне через DEBUG пошагово - все нормально, данные разные, всем подвох? Или как всегда кривость рук? Пример
Procedure loadmas(var a: tmas);
Var
I: integer;
Begin
Randomize;
For I:= 1 to csize  do a[i]:= random(50)+1;
End;
 
Var
X, y, z: tmas;
Begin
Loadmas(x);
Loadmas(y);
Loadmas(z);
Код не весь, но смысл ясен. Непойму почему через отладчик все норм, а через run массивы равны, проясните если незатруднит.

Код к задаче: «Непонятна работа связки randomize - random - Pascal»

textual
begin
  Randomize;

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

5   голосов, оценка 3.600 из 5


СОХРАНИТЬ ССЫЛКУ