Как создать динамический массив? - PascalABC.NET
Формулировка задачи:
Ребят, как создать примерно такой динамический массив
при компиляции программа выдает ошибку, то, что N должен быть константой. Как сделать массив динамическим?
Листинг программы
- var
- N :integer;
- mas : array[1..N] og integer
- begin
- end.
Решение задачи: «Как создать динамический массив?»
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).
- Завершаем программу.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д