Работа с 1Д масивами Паскаль

[art_d]

Задача из масива ms[i] вывести наименьшее положительное значение MinV и индекс idet

for i := 1 to num do
   ms[i] := random * 20 - 10;

 idet:=1;
  While ((ms[i] > 0) AND (I <= Num))Do
  begin
    if (ms[i] < MinV) then
  begin
 for i := 1 to num do
   begin
    MaxV:= ms[i];
    idet:=i;
  end;
  End;
 i:=i+1;
   End;

writeln(MinV,Idet);

Не выводит, что делаю не так?

[Naive]

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

Не выводит, что делаю не так?

1) не оформляете код
2) зачем Вам 2 вложенный цикл?
3) MaxV:= ms[i]; -? тут наверно должен быть минимум?

for i := 1 to num do
ms[i] := random * 20 - 10;

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(MinV,Idet);

[art_d]

Да, там мин
1) не оформляете код
2) зачем Вам 2 вложенный цикл?
Что значит оформить код
Что значит вложенный цикл?

[art_d]

Пробовал так, всеравно ничего не выводит

uses
 crt;
const
 num = 20;
var
 i: integer;
 ms: array[1..num] of real;
 idet: integer;
 MinV: real;
begin
 clrscr;
randomize;

for i := 1 to num do
ms[i] := random * 20 - 10;

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(MinV,' ',Idet);

readln;
end.

[Niro]

ms[i] := random * 20 - 10;

Интересное конечно же заполнение массива, лучше прочитайте про функцию random

if ((ms[i] < MinV)

Т.к. переменная MinV нигде не проинициализирована - ей не присвоено никакое значение, она считается равной нулю, т.е. ваше условие выглядит следующим образом:

 if ((ms[i] < 0) and (ms[i]>0))

Присвойте перед циклом переменной MinV значение первого элемента и усЁ

[art_d]

Работает, но
Если 1-ый элемент отрицательный, то он сравнивает все с ним т.е. ответ получается отрицательный, а нам надо только положительный

[Niro]

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