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

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] > max then max: = a[i];

if a[i] < min then min: = a[i];

end;

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

writeln ();

writeln ('min = ', min : 3, ' max = ', max : 3)

end.