Soqwa Const
  n = 10;

var
  i, min, max: integer;
  a: array[1..n] of integer;

begin
  min := 1; max := 1;
 
  for i := 1 to n do
  begin
    a[i] := random(101);
    write(a[i]:4);
    if (a[i] > a[max]) then
      max := i;
    if (a[i] < a[min]) then
      min := i;
  end;
 
  i := a[max];
  a[max] := a[min];
  a[min] := i;
 
  writeln();
  for i := 1 to n do
    write(a[i]:4);
 
end.

archery

Verified answer

Var i,min,max:integer;
a:array[1..10] of integer;
begin
min:=100;
max:=0;
Randomize;
for i:=1 to 10 do
begin
a[i]:=random(101);
write(a[i],' ');
if (a[i] > max) then max:=a[i]; if (a[i] < min) then min:=a[i];
end;
writeln('');
for i:=1 to 10 do
begin
if a[i] = max then a[i]:=min else if a[i] = min then a[i]:=max;
write(a[i],' ');end;

end.