[доделать]|МАССИВ|

[Zoo_ooZ]

Условие

"Дана последовательность из n целых чисел. Все минимальные элементы в ней заменить средним арифметическим соседних значений."

const
n1=100;
var
a:array[0..n1] of Real;
s,i,n:Integer;
min:real;
Begin
write('n=');
read(n);
if n>0 then
begin
for i:=1 to n do
Begin
write('a[',i,']=');
read(a[i]);
end;
min:=a[1];
For i:=1 to n do
if a[i]<min then
min:=a[i];
For i:=1 to n do
if a[i]=min then
a[i]:=(a[i-1]+a[i+1])/2 ;

For i:=1 to n do
begin
WriteLn('a[i]=',a[i]);
end;

end;
end.
Что исправить:Если у меня минимум стоит на первом и/или последнем месте массива происходит выход за границу (обращается к a[0] и a[n+1]) Помогите. Решить.

[lenwe]

Что по тексту задания должно происходить?

if a[i]=min then
a[i]:=(a[i-1]+a[i+1])/2 ;

непонятынй участок

[Abstraction]

Что исправить:Если у меня минимум стоит на первом и/или последнем месте массива происходит выход за границу (обращается к a[0] и a[n+1])

Сформулировать условие "если i равно 0 либо n+1", как отдельную ветку. Подумать, а что должно произойти в этом случае. Реализовать.