В массиве из 10 элементов, заполненного случайными числами из интервала от –15 до 15, найти одновременно наибольший и

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

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

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

for i:integer:=2 to 10 do //поиск минимального и максимального элементов beginif a[i] > max then max:= a[i];if a[i] < min then min:= a[i];end;

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

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