Для заполнения массива случайными числами мы должны подключить датчик случайных чисел, используя команду…

• read
• Randomize;
• A
  \[i\]
  :=?; i
• Clrscr;