ДАЮ 35 БАЛЛОВ!! СРОЧНО НУЖНО!! ПРОШУ ОТВЕТЬТЕ!!! ОПИШИТЕ ЭТОТ КОД. ПРЯМ ПОШАГОВО ОБЪЯСНИТЕ. Pascal ABC
ВОТ ЗАДАЧА:Написать программу, в которой пользователь вводит 5 чисел и нужно вывести максимальное число и минимальное. и поменять их местами.
Например:
6
7
8
9
10
макс.- 10
мин.- 6
10
7
8
9
6

Код:
program d;
var min,max,a : integer;
mas:array[1..5] of integer;
begin
for a:=1 to 5 do
begin
readln(mas[a]);
if mas[a]<=mas[min] then min:=a;
if mas[a]>=mas[max] then max:=a;
end;
writeln;
writeln (mas[max]);
for a:=1 to 5 do
if (a<>min)and(a<>max) then writeln (mas[a]);
writeln(mas[min]);
end.​