Поиск максимального и минимального элементов в массиве за один цикл - PascalABC.NET

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

Выполните поиск максимального и минимального элементов в массиве за один цикл

Решение задачи: «Поиск максимального и минимального элементов в массиве за один цикл»

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

var arr: array [1..10] of integer;
begin
randomize;
var min: integer := 1;
var max: integer := 1; 
for var i:=1 to 10 do
 begin
  arr[i] := random(100);
  write(arr[i]:3);
  if arr[i] > arr[max] then max := i;
  if arr[i] < arr[min] then min := i;
 end;
writeln; 
writeln('min=',arr[min]);
writeln('max=',arr[max]);
end.

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

Объявляется массив arr типа array [1..10] of integer.
Инициализируются переменные min и max значением 1.
Запускается цикл for, который выполняет 10 итераций, начиная с i=1 и до i=10.
На каждой итерации в массив arr[i] записывается случайное число от 0 до 99, полученное с помощью функции random(100).
С помощью функции write(arr[i]:3) выводится значение arr[i] на экран.
Если arr[i] больше значения arr[max], то max присваивается значение i.
Если arr[i] меньше значения arr[min], то min присваивается значение i.
После завершения цикла выводится на экран два раза подряд символ новой строки (writeln;).
Выводится сообщение 'min=' и значение arr[min].
Выводится сообщение 'max=' и значение arr[max].