Спроектировать и реализовать программу, что создает и выводит на экран одномерный массив A на 10 элементов, Ai=random(20)+2 - Turbo Pascal

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

Отсортировать массив по убыванию, используя метод минимальных элементов.

Решение задачи: «Спроектировать и реализовать программу, что создает и выводит на экран одномерный массив A на 10 элементов, Ai=random(20)+2»

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

  var
  a:array [1..100] of integer;
  i,j,n,min,imin,jmin:integer;
  begin
  writeln('Введите N');
  readln(n);
  for i:=1 to n do begin
  a[i]:=random(20)+2;
  write(a[i],' ');
  end;
 for i:=1 to n do
 for j:=1 to n do
 if (a[j]<a[i]) then
 begin
 min:=a[j];
 a[j]:=a[i];
 a[i]:=min;
 end;
writeln;
writeln('Измененный массив');
for i:=1 to n do 
write(a[i],' ');
end.

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

В данном коде на языке Turbo Pascal создается и выводится на экран одномерный массив A на 10 элементов. Каждый элемент массива Ai равен random(20)+2. Переменные в коде:

a:array [1..100] of integer — одномерный массив на 100 элементов типа integer;
i, j, n, min, min, jmin:integer — переменные для циклов и сравнений значений элементов массива;
writeln('Введите N'); — вывод сообщения для ввода значения n;
readln(n); — чтение значения n с клавиатуры;
for i:=1 to n do begin — цикл для заполнения массива a значениями random(20)+2;
a[i]:=random(20)+2; — присваивание значения random(20)+2 каждому элементу массива a;
write(a[i],' '); — вывод значения i-го элемента массива a на экран;
end; — конец цикла заполнения массива a;
for i:=1 to n do
for j:=1 to n do
if (a[j]<a[i]) then
begin
min:=a[j];
a[j]:=a[i];
a[i]:=min;
end; — цикл для сортировки элементов массива a по возрастанию;
writeln('Измененный массив'); — вывод сообщения о измененном массиве;
for i:=1 to n do
write(a[i],' '); — вывод значений элементов массива a на экран.