Дано натуральное число N и действительные числа a1,a2,…,aN. Определить: max(a1,a2,…,aN); min(a1,a2,…,aN); для генерации чисел использовать функцию random(a) — Pascal(Паскаль)

max=a1;
If max < a2 then max:=a2 esle max:=max;
............
If max < aN then max:=aN else max:=max;
 
min=a1;
If min > a2 then min:=a2 else min:=min;
.............
If min > aN then min:=aN else min:=min;