В массиве из 10 частей, заполненного случайными числами из промежутка от

program min_max;
var A: array[1..10] of integer;
max, min: integer;
begin
randomize;

for i:integer:= 1 to 10 do //наполнение массива 
begin
A[i]:= random(31) - 15;
write(a[i] : 5)
end;

max:=A[1];
min:=A[1];

for i:integer:=2 to 10 do //поиск малого и наибольшего частей 
begin
if a[i] gt; max then max:= a[i];
if a[i] lt; min then min:= a[i];
end;

//вывод минимального и наибольшего значений элементов массива

writeln();
writeln(min = , min : 3, max = , max : 3) 
end.