Одномерный массив произвольного размера, заполненный случайными значениями

В данном задании, мы не знаем какого размер будет наш одномерный массив, поэтому использование простых одномерных массивов не подходит (будет появляться ошибка). 

Поэтому придётся использовать динамический массив. Описание динамического массива происходит в разделе описания переменных, следующий образом:

m:array of integer;

Как видите, указывает только лишь тип значений будущего массива.

В теле программы после ввода предполагаемого количества элементов массива задаём конечную длину массива, с помощью опреатора SetLength.

SetLength(m,n);

С помощью генератора случайных чисел randomize создаем случайные числа.

Данная строка позволяет заполнить массив значениями от  1 до 100:

m[i]:=random(100)+1;

Код программы на Паскаль

Program massiv_random;

Var

i,n:integer;

m:array of integer;

Begin

write(Задайте количество элементов массива:);

readln(n);

SetLength(m,n);

randomize;

for i:=0 to n-1 do

    m[i]:=random(100)+1;

writeln(-------------------------------);  

for i:=0 to n-1 do

  writeln(i+1, -й элемент массива = ,m[i]);

End.

Пример выполнения программы

Задайте количество элементов массива:5
-------------------------------
1-й элемент массива = 22
2-й элемент массива = 70
3-й элемент массива = 68
4-й элемент массива = 2
5-й элемент массива = 92