Пусть в массиве содержатся результаты измерений температуры воздуха - Pascal ABC

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

Помогите составлением программы! Пусть в массиве содержатся результаты измерений температуры воздуха, которые проводились ежедневно в течение декабря месяца. Определите: температуры любого из самых холодных и самых теплых дней и поменяйте их местами;

uses crt;
const n=31;
var a:array[1..n] of integer;
    i,max,min:integer;
begin
clrscr;
for i:=1 to n do
 begin
  write('Введите температуру в ',i,' день декабря =');
  readln(a[i]);
 end;
clrscr;
writeln('Массив:');
for i:=1 to n do
begin
write(a[i],' ');
end;
writeln;
 
max:=a[1];
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
end;
 
for i:=1 to n do
begin
if a[i]=max then writeln('Наибольшая температура в ',i,' день');
end;

begin
 
min:=a[1];
for i:=1 to n do
begin
if a[i]<min then min:=a[i];
end;
 
for i:=1 to n do
begin
if a[i]=min then writeln('Наименьшая температура в ',i,' день');
end;
end;

readln;
end.

Решение задачи: «Пусть в массиве содержатся результаты измерений температуры воздуха»

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

uses crt;
const n=31;
var a:array[1..n] of integer;
    i,max,min,imx,imn,x:integer;
begin
for i:=1 to n do
 begin
  write('Введите температуру в ',i,' день декабря =');
  readln(a[i]);
 end;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(a[i]:4);
writeln;
max:=a[1];
imx:=1;
min:=a[1];
imn:=1;
for i:=2 to n do
 begin
  if a[i]>max then
   begin
    max:=a[i];
    imx:=i;
   end;
  if a[i]<min then
   begin
    min:=a[i];
    imn:=i;
   end;
 end;
writeln('Наибольшая температура=',max,' в ',imx,' день');
writeln('Наименьшая температура=',min,' в ',imn,' день');
x:=a[imn];
a[imn]:=a[imx];
a[imx]:=x;
writeln('Обмен минимального и максимального:');
for i:=1 to n do
write(a[i]:4);
end.

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

Создаётся массив a типа array[1..n] of integer, где n - это константа, равная 31.
В цикле for считываются данные о температуре воздуха для каждого дня декабря. Данные считываются с помощью функции readln(a[i]).
После завершения цикла for выводится сообщение с массивом a.
Затем происходит очистка экрана с помощью функции clrscr.
Снова выводится сообщение с массивом a.
Инициализируются переменные max, min, imx и imn со значениями первого элемента массива a.
Запускается цикл for, который проходит по всем элементам массива a от второго до последнего.
Внутри цикла проверяется, если текущий элемент a[i] больше переменной max, то значение max присваивается этому элементу, а индекс этого элемента присваивается переменной imx. Также выполняется проверка, если текущий элемент меньше переменной min, то значение min присваивается этому элементу, а индекс этого элемента присваивается переменной imn.
После завершения внутреннего цикла for выводятся сообщения о наибольшей и наименьшей температуре.
Затем происходит обмен значениями минимального и максимального элементов массива a. Для этого значения двух элементов с индексами imn и imx меняются местами.
Выводится сообщение об обмене минимального и максимального элементов.
Цикл for завершается, и программа завершается.