Определение элемента в одномерном массиве

[Sawok]

Всем привет. Надо в одномерном массиве определить значение и индекс наименьшего позитивного элемента, анализировать все элементы массива. И при выполнении надо использовать эту заготовку. Буду очень признателен за помощь.

 const   num=20;   {razmer massiva}
 var
    DATA : text;
    oper,         { vipolnjaemaja operacija}
                  { oper=3333 zakon4itj                }
    i,j :   integer;    {imdeksi }
    ms: array[1..num] of real;{Massiv, kotorij obrabativajut}
    x, dx :real;
    idet : integer; { indeksi dlja rezuljtatov }
    Maxv: real;           { rezultat         }
    label  MENU, SOLVE, BEIGAS;
 begin
       assign (DATA, 'Data.txt');
       rewrite(DATA);
 MENU:
    x:=0.27; dx:=0.345;
    writeln;
    writeln( 'Programma dlja osvoenija massivov');
    writeln( ' 3333 - zakon4itj');
    writeln( ' 1111 - generirovatj massiv s standartnimi dannimi');
    writeln( ' ljuboe drugoe chislo generirovatj drugimi dannimi);
    read( oper);
    if oper=3333 then goto BEIGAS;
    if oper=1111 then goto SOLVE;
    {zapolnenie massiva i rascheti}
    writeln( 'vvedi dva realjnix 4isla,oni opredeljat znachenija elementov massiva);
    read(x, dx);

SOLVE:
      writeln(DATA);  writeln(DATA);  writeln(DATA);  writeln(DATA);
      writeln(DATA, 'Poluchen massiv s zna4enijami x un dx');
      writeln(DATA,' x=', x:6:4,'     dx=',dx:6:4);
  for i:=1 to num do
      begin
      ms[i]:=10*sin(x);
      x:=x+dx;
      end;          writeln;
   for i:=1 to num do  {Vivod sgenerirovannogo massiva}
     begin
      write( '      "',i:2, '"', ms[i]:10:5)
     end;
      writeln(DATA);
     for i:=1 to num do  {Vivod sgenerirovannogo massiva v faile}
     begin
      write(DATA, '     "',i:2, '"', ms[i]:9:5);
      if (i mod 4=0) then   writeln(DATA);
     end;
     writeln;   writeln(' Chto bi prodolzhitj, vvedi chislo');
     read(j);
    goto MENU;
  BEIGAS:
    close (DATA);
    end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Sawok]

MinV:=ms[1]; idet:=1;
   for i:=1 to num do
       if ((ms[i]< Minv)and (ms[i]>0))  then
         begin

           MinV:= ms[i];
           idet:=i;
         end;
   writeln(' Minimala masiva elementa vertiba ir :', MinV:10:5);
   writeln(' Minimala elementa indeks ir :', idet:5);
    goto MENU;
  BEIGAS:
end.

Попробовал так, но выдает иногда правильно, иногда и отрицательные значения. Подправьте пожалуйста код.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Sawok]

Кто знает, подскажите, в чем ошибка.

[TinMan]

Вот как-то так примерно:

imin:= 0;
for i:=1 to num do
  if (ms[i]>0) and ((imin<0) or (ms[i]<ms[imin])) then imin:= i;
if imin=0 then writeln('no positive elements in the array')
else writeln('minimum of positive elements is at index ',imin);

Слушай, Sawok, а вам не говорили, что метки использовать нельзя? Пойди в Опции и сними галочку с "можно использовать goto". Это ускорит твое обучение.