Здравствуйте, amelya.kuro!

Смотрите код:
[code lang=pascal h=200]const
n=20;
var
a:array[1..n]of integer;
b,c,d:integer;
begin
d:=1;{максимальный}
c:=1;{минимальный}
{создаем массив}
randomize;
for b:=1 to n do
begin
a[b]:=random(100);{новый элемент}
write(a[b]:3);{выводим}
if a[b]>a[d]then d:=b;{проверяем максимум}
if a[b]<a[c]then c:=b;{проверяем минимум}
end;
{меняем местами}
writeln;
b:=a[d];
a[d]:=a[c];
a[c]:=b;
{выводим результат}
for b:=1 to n do
write(a[b]:3);
end.[/code]
Удачи!