Здравствуйте, Петров Игорь Ильич!
Пдробное решение в приложении, с коментариями. Массив заполняеся сучайными числами от 1 до 100, кол-во 10 это всё можно поменять по Вашему жеаню.
Надеюсь помог.
Удачи.
<p><fieldset style=‘background-color:#EFEFEF; width:80%; border:#777777 1px solid; padding:10px;‘ class=fieldset><font color=#777777><i>Отредактировано по просьбе эксперта.</i>
-----
</font><font color=#777777 size=1><b>• Отредактировал: <a href=http://rusfaq.ru/info/user/18359 target=_blank>Николай Владимирович / Н.В.</a></b> (Профессор)
<b>• Дата редактирования:</b> 28.05.2008, 21:30 (MCK)</font></fieldset>

Приложение:
program mass2; const n = 10; {кол-во эл-ов массива} var m : array[1..n] of integer; i : integer; min, max : integer; min1, max1 : integer; {номер мах и мин эл-та} begin min1 := 1; max1 := 1; {массив будем заполнять случайными числами} {например от 1 до 100} randomize; {готовимся к случайному заполнению} for i := 1 to n do {заполняем случайными числами} begin m[i] := random(100) + 1; {значение можно изменить} write(m[i], ‘ ‘); {выводим массив для примера} end; writeln; {ищем максимальное и минимальное} max := m[1]; min := m[1]; for i:= 2 to n do begin if m[i] > max then begin max := m[i]; max1 := i; end; if m[i] < min then begin min := m[i]; min1 := i; end; end; {меняем местами} m[max1] := min; m[min1] := max; writeln; writeln(‘Максимальный эл-т = ‘, max, ‘ Минимальный эл-т = ‘, min); writeln; {выводим изменённый массив} for i:= 1 to n do write(m[i], ‘ ‘); readln; end.

Здравствуйте, Петров Игорь Ильич!
Код в приложении


Приложение:
uses crt;var a:array [1..20] of integer;i,n,max,min,imax,imin,b:integer;procedure vyvod;begin for i:=1 to n do write (a[i],‘ ‘);writeln;end;beginclrscr;writeln (‘vvedite kol-vo elementov‘);readln (n);max:=low(integer);min:=high(integer);writeln (‘vvedite massiv‘);for i:= 1 to n do beginwriteln (‘vvedite ocherednoy element‘);readln (a[i]);if max<a[i] then begin max:=a[i];imax:=i;end;if min>a[i] then begin min:=a[i];imin:=i;end;end;writeln (‘dannyi massiv‘);vyvod;a[imin]:=max;a[imax]:=min;writeln(‘obrabotannyi massiv‘);vyvod;readln;end.