Выполнить перестановку элементов последовательности - Turbo Pascal
Формулировка задачи:
Выполнить перестановку элементов последовательности А, так, чтобы последний элемент последовательности поменялся с первым, предпоследний со вторым и тд. Одномерный массив создать при помощи генератора случайных чисел.
Решение задачи: «Выполнить перестановку элементов последовательности»
textual
Листинг программы
const n = 20; var a: array[1..n] of integer; i, t: integer; begin // создаем массив с помощью генератора случайных чисел randomize; writeln('Array A:'); for i := 1 to n do begin a[i] := random(100); write(a[i]:4); end; writeln; // изменяем порядок следования элементов массива for i := 1 to n div 2 do begin t := a[i]; // здесь t - временная переменная a[i] := a[n - i + 1]; // a[n-i+1] - зеркальный элемент для a[i] a[n - i + 1] := t; end; // выводим измененный массив на экран writeln('Changed Matrix A:'); for i := 1 to n do write(a[i]:4); readln; end.
Объяснение кода листинга программы
В данном коде объявлены следующие переменные:
- n - количество элементов в массиве (равное 20 в данном случае);
- a - массив для хранения чисел;
- i - индекс текущего элемента массива;
- t - временная переменная для хранения зеркального элемента;
- randomize - инициализация генератора случайных чисел;
- write - функция для вывода числа на экран;
- readln - функция для чтения числа с экрана.
Код выполняет следующие действия:
- Генерирует случайные числа для каждого элемента массива и выводит их на экран.
- Изменяет порядок следования элементов массива путем обмена элементов через временную переменную t.
- Выводит измененный массив на экран.