Ошибка в программе

[Катакомба]

надо,чтобы программа вычисляла сумму положительных элементов массива,расположенных между мин и мах элементами
вот что получилось написать:

sum:=0;
    m:=0;
    k:=0;
    for i := 1 to n do
    if x[i]=min then k:=i;
    if x[i]=max then m:=i;
    for i:=k+1 to m-1 do sum:=sum+x[i];
    writeln('sum polozit el-tov massiva mezdy min i max= ',sum:8:2);
    readln;

но что-то не работает.в чем проблема?

[Neobrat]

for i := 1 to n do
begin
if x[i]=min then k:=i;
if x[i]=max then m:=i;
end;

[Alex11223]

Видимо begin/end; пропущено в первом for. А макс и мин какие? Первые? Последние? Или только по 1 разу могут встретиться? Если последнее, то я бы во время поиска запоминал их индексы.

[Neobrat]

а лучше чуток так

    sum:=0;
    m:=x[i];
    k:=x[i];
    for i := 1 to n do
    begin
      if x[i]=min then k:=i;
      if x[i]=max then m:=i;
    end;
    for i:=k+1 to m-1 do
      if x[i]>0 then // берем только положительные
       sum:=sum+x[i];
    writeln('sum polozit el-tov massiva mezdy min i max= ',sum:8:2);
    readln;

[Катакомба]

видимо в задании подразумевается что мин и мах элементы только один раз встречаются.
вы правы всё дело в begin/end
всё,теперь программа полностью работает
СПАСИБО ВСЕМ за помощь!!!

[Neobrat]

хотя нет.. совсем не так..
у вас нет поиска минимума и максимума(если они конечно не задаются вручную где то выше)

    sum:=0;
    max:=x[i];
    min:=x[i];

    m:=0;
    k:=0;
    for i := 1 to n do
    begin
      if x[i]<min then 
       begin
        min := x[i];
        k:=i;
       end;
      if x[i]>max then
      begin
        max := x[i]
        m:=i;
      end;
    end;

    for i:=k+1 to m-1 do
      if x[i]>0 then // берем только положительные
       sum:=sum+x[i];
    writeln('sum polozit el-tov massiva mezdy min i max= ',sum:8:2);
    readln;

[Alex11223]

у вас нет поиска минимума и максимума

а у вас объявления переменных и заполнения массива)
Перед поиском, кстати, наверно max и min :=x[1], а не i и их индексы тоже 1.

[Катакомба]

поиск мин и мах у меня действительно выше задается,
для того,чтобы он суммировал только положительные элементы между мин и мах оказалось достаточно добавить эту строчку

if x[i]>0 then

[Neobrat]

Сообщение от Alex11223

а у вас объявления переменных и заполнения массива)
Перед поиском, кстати, наверно max и min :=x[1], а не i и их индексы тоже 1.

я не ставил целью написать готовую функцию..
уж извините, заполнение думаю сможете сделать сами)

max и min :=x[1] - да, конечно же 1, поторопился малость
и вот тут
m:=0;
k:=0;
не нули а единицы надо, (все ни как привыкнуть не могу, что студенты считают массивы от единицы)