Как создать динамический массив? - PascalABC.NET
Формулировка задачи:
Ребят, как создать примерно такой динамический массив
при компиляции программа выдает ошибку, то, что N должен быть константой. Как сделать массив динамическим?
Решение задачи: «Как создать динамический массив?»
textual
Листинг программы
program pr;
var
i, n: integer;
mas: array of integer; // объявляем динамический массив
begin
writeln('Введите размер динамического массива');
readln(n);
setlength(mas, n); // устанавливаем размер массива,равный введённому n
for i := 0 to n - 1 do // цикл заполнения с 0 до n-1 (потому что в динамическом массиве нумерация идёт с 0)
begin
mas[i] := random(10); // заполняем случайными числами( в данном случае от 0 до 9)
write(mas[i]:3); // выводим
end;
end.
Объяснение кода листинга программы
- Объявляем переменные i, n типа integer.
- Объявляем динамический массив mas типа array of integer.
- Запрашиваем у пользователя размер массива и сохраняем его в переменной n.
- Устанавливаем размер массива с помощью функции setlength(mas, n).
- Заполняем массив случайными числами от 0 до 9 с помощью цикла for и присваивания mas[i] := random(10).
- Выводим значения массива с помощью функции write(mas[i]:3).
- Завершаем программу.