Массив 20-ти элементов, заполненных случайными числами - Pascal ABC

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

Написать программу, генерирующую массив 20-ти элементов, заполненных случайными числами. Найти наибольшее и наименьшее значения в массиве. Вывести результат на экран с пояснениями.

Решение задачи: «Массив 20-ти элементов, заполненных случайными числами»

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

uses crt;
var q,min,max:integer;
     arr:array[1..20] of integer;
begin
 writeln('ARRAY:');
 for q:=1 to 20 do
  begin
   arr[q]:=random(100);
   write(arr[q]:3);
  end;
 min:=arr[1]; max:=arr[1];
 for q:=2 to 20 do
  begin
   if arr[q]>max then max:=arr[q];
   if min>arr[q] then min:=arr[q];
  end;
  writeln;
  writeln('MIN = ',min);
  writeln('MAX = ',max);
end.

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

В начале программы объявляются переменные q, min, max и arr типа integer.
Переменная q инициализируется значением 1.
Переменная min инициализируется значением arr[1].
Переменная max инициализируется значением arr[1].
В цикле от 1 до 20 элементов массива arr выполняется следующее:
1. Каждый элемент массива arr заполняется случайным числом от 0 до 99 с помощью функции random(100).
2. Каждое случайное число выводится на экран с помощью функции write(arr[q]:3).
Переменные min и max обновляются в соответствии с текущим элементом массива.
После завершения цикла, выводится новая строка с помощью функции writeln.
Выводятся значения переменных min и max с помощью функции writeln.
Программа завершается.