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

Смотрите код:
[code lang=pascal h=200]const
n=20;
var
z:array[1..n]of integer;
a,b,c,d,e:integer;
begin
repeat{вводим нижнюю границу диапазона}
write('enter A:=');
readln(a);
until(0<a)and(a<n);
repeat{вводим верхнюю границу диапазона}
write('enter B:=');
readln(b);
until(a<b)and(b<=n);
c:=a;{максимальное}
d:=a;{минимальное}
for e:=1 to n do
begin
z[e]:=random(100);{получаем новый элемент массива}
write(z[e]:4);{выводим элемент массива}
if(a<=e)and(e<=b)then{проверяем диапазон}
begin
if z[e]>z[d]then d:=e;{новое максимальное}
if z[e]<z[c]then c:=e;{новое минимальное}
end;
end;
{выводим результат}
writeln('minimum:=',z[c],'maximum:=':15,z[d]);
end.[/code]
Удачи!