Как выбрать самый легкий и самый тяжелый арбуз? - PascalABC.NET

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

Иван Васильевич пришел на рынок и решил купить два арбуза: один для себя, а другой для тещи. Понятно, что для себя нужно выбрать арбуз потяжелей, а для тещи полегче. Но вот незадача: арбузов слишком много и он не знает как же выбрать самый легкий и самый тяжелый арбуз? Помогите ему! Входные данные В первой строке входного файла INPUT.TXT задано одно число N – количество арбузов. Вторая строка содержит N чисел, записанных через пробел. Здесь каждое число – это масса соответствующего арбуза. Все числа натуральные и не превышают 30000. Выходные данные В выходной файл OUTPUT.TXT нужно вывести два числа через пробел: массу арбуза, который Иван Васильевич купит теще и массу арбуза, который он купит себе. Пример INPUT.TXT 5 5 1 6 5 9 OUTPUT.TXT 1 9

Решение задачи: «Как выбрать самый легкий и самый тяжелый арбуз?»

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

read(n);
read(min);
max:=min;
for i:=2 to n do
 begin
  read(a);
  if a<min then min:=a
  else if a>max then max:=a;
 end;
write(min,' ',max);

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

Ввод количества арбузов n и начального значения min (самый легкий арбуз) с клавиатуры.
Инициализация переменной max значением min.
Цикл по индексам от 2 до n, где: a. Ввод значения арбуза a с клавиатуры. b. Если a меньше min, то обновление значения min. c. Если a больше max, то обновление значения max.
Вывод на экран значений min (самый легкий арбуз) и max (самый тяжелый арбуз).