program MinMaxArray;

var
arr: array[1..10] of integer;
i, max, min, maxIndex, minIndex: integer;

begin
randomize;

// Заполнение массива случайными числами
for i := 1 to 10 do
begin
arr[i] := random(21) - 10;
write(arr[i], ' ');
end;

// Поиск максимального и минимального элементов
max := arr[1];
min := arr[1];
maxIndex := 1;
minIndex := 1;

for i := 2 to 10 do
begin
if arr[i] > max then
begin
max := arr[i];
maxIndex := i;
end;

if arr[i] < min then
begin
min := arr[i];
minIndex := i;
end;

end;

writeln;
writeln('Максимальный элемент: ', max, ', его индекс: ', maxIndex);
writeln('Минимальный элемент: ', min, ', его индекс: ', minIndex);
end.