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

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


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

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


Вывод введённых значений из массива