Работа с массивами 1 - Pascal

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

Написать программу, которая создает одномерный массив из 12 элементов. Заполнить его либо с клавиатуры(от 0до99), либо с помощью генератора случайных чисел. Для выбора одного из двух вариантов заполнения программа задает вопрос пользователю. Затем программа должна инвертировать массив, путем замены первого элемента на последний, второго на предпоследний и т.д. вывод на экран должен произойти два разп: до инверсии и после

Решение задачи: «Работа с массивами 1»

Листинг программы

program MrPug;
uses
  crt;
 
type
  arr = array of integer;
 
var
  mas: arr;
  choose, n, i: integer;
begin
  Write('Enter size of array = ');readln(n);
  setlength(mas, n);
  Writeln('   Varian');
  Writeln(' 1 - Random');
  Writeln(' 2 - Manual');
  Write('   You choose = ');readln(choose);
  case (choose) of
    1: begin 
        for i := 1 to n-1 do
            mas[i] := random(100);
       end;
    2: begin 
        for i := 1 to n-1 do
            begin
                Write('Array [', i, '] = ');readln(mas[i]);
            end;
       end;
  end;
  Write('Array [start] = ');
  for i := 1 to n-1 do
    Write(mas[i], ' ');
Writeln;
  Write('Array [finish] = ');
  for i := n-1 downto 1 do
    Write(mas[i], ' ');  
Writeln;
end.

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

В этом коде определен тип массива arr как массив целых чисел, а также определены переменные mas, choose, n и i типа integer.

Пользователю предлагается ввести размер массива.
С помощью функции setlength инициируется массив mas с заданным размером.
Выводится сообщение с вариантами выбора и пользователь выбирает один из них.
В зависимости от выбранного варианта выполняется соответствующий код:
- Если выбран вариант 1, то с помощью цикла заполняется массив случайными числами от 1 до 100.
- Если выбран вариант 2, то для каждого элемента массива запрашивается его значение у пользователя.
Выводится сообщение Array [start] и все элементы массива, начиная с первого, выводятся через пробел.
Выводится сообщение Array [finish] и все элементы массива, начиная с последнего, выводятся через пробел.