Заполнить массив случайными числами от 1 до 100, вывести массив на экран - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

1) Реализовать динамический массив целых чисел, заполнить его случайными числами от 1 до 100, вывести массив на экран.

Решение задачи: «Заполнить массив случайными числами от 1 до 100, вывести массив на экран»

textual
Листинг программы
var a:^array[1..100] of integer;
    n,i,j:integer;
begin
new(a);
repeat
write('Введите размер массива от 1 до 100 n=');
readln(n);
until n in [1..100];
for i:=1 to n do
 begin
  a^[i]:=1+random(100);
  write(a^[i]:4);
 end
end.

Объяснение кода листинга программы

  1. Создается переменная a типа ^array[1..100] of integer;, которая будет представлять собой массив целых чисел размером от 1 до 100.
  2. Затем объявляются три переменные n, i и j типа integer;, которые будут использоваться для цикла и индексации массива.
  3. Выполняется команда new(a), которая создает новый объект массива a.
  4. В цикле repeat выполняется запрос пользователю ввести размер массива от 1 до 100, используя переменную n.
  5. Затем выполняется цикл until n in [1..100], который продолжается до тех пор, пока значение переменной n входит в диапазон от 1 до 100.
  6. Внутри цикла for i:=1 to n do происходит заполнение массива случайными числами от 1 до 100 с помощью команды a^[i]:=1+random(100);.
  7. После этого выводится значение элемента массива с индексом i с помощью команды write(a^[i]:4); и выводится его числовое представление.
  8. Цикл for завершается после заполнения всего массива.
  9. Код завершается командой end;.

Оцени полезность:

9   голосов , оценка 4.222 из 5
Похожие ответы