Ошибка в индексации массива

[konstantusha]

Здравствуйте! Помогите, пожалуйста с задачей: подсчитать произведение элементов массива между первым максимальным и минимальным. Проблема: программа выдает, что индекс первого элемента равен 0. С чем это связано и как это исправить?

Код на Паскале:

const C=10000;
var a: array [1..C] of real;
i,n,k,imax,imin:integer;
p,amin,amax:real;
begin
writeln ('Vvedite n= ');
readln(n);
p:=1;
for i:=1 to n do
begin
writeln('a[',i,']');
readln(a[i]);
end;

amax:=a[1];
for i:1 to n do
if a[i]>amax then
begin
amax:=a[i];
imax:=i;
end;

amin:=a[i];
for i:1 to n do
if a[i]<amin then
begin
amin:=a[i];
imin:=i;
end;

if(imin-imax=1) or (imax-imin=1) then
writeln('Elementi stoyat ryadom. Proizvedenie ne vichislyaetsya')
else
begin
if imax>imin then
for k:=imin+1 to imax-1 do
p:=p*a[k];
else
for k:=imax+1 to imin-1 do
p:=p*a[k];
writeln('p= ',p:2:2);
end;

writeln('imax = ', imax);
writeln('imin = ', imin);
readln;
end.

[Sciv]

Используйте форматирование кода (кнопка #) - реально проще читать будет. А чем проще читать - тем быстрее придет помощь.

Далее:

for i:1 to n do

- и так два раза по тексту, найдите ошибку Вообще удивительно, что она запустилась. Ну и прочие мелкие мелкие очепатки.

Теперь по проблеме: угадайте, какое значение имеет переменная i в этой точке?

amin:=a[i];

Правильно, i=n+1. Потому что значения с 1 по n она принимала в цикле.

По идее, компилятор должен был выдать предупреждение типа такого:

Warning: FOR-Loop variable "i" may be undefined after loop

которое Вы, вероятно, проигнорировали.

Ну и, наконец, прочитайте, что такое трассировка, научитесь пользоваться - и будет Вам щастье