var
    a:array[1..10] of integer=(1,2,3,4,5,6,7,8,9,10);
    indexMax,indexMin,temp,i,n,min,max:integer;
begin
n:=10;
for i:=1 to n do
begin
    write(a[i],' ');
end;
min:=a[1];
indexMin:=1;
for i:=1 to n do
begin
    if a[i]<min then
    begin
    indexMin:=i;
    min:=a[indexmin];
    end;
end;
max:=a[1];
indexMax:=1;
for i:=1 to n do
begin
    if a[i]>max then
    begin
    indexMax:=i;
    max:=a[indexMax];
    end;
end;
    temp:=a[indexMin];
    a[indexMin]:=a[indexMax];
    a[indexMax]:=temp;
writeln('indexMin = ',indexMin);
writeln('indexMax = ',indexMax);
writeln('temp = ',temp)
end.