Здравствуйте, 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;
writeln('A[',c:2,']+A[',d,']=',a[c],'+',a[d],'=',a[c]+a[d]);
end.[/code]
Удачи!