процедура возвращения элемента массива, не сложно вроде Опции

[Дёнис]

Нужна помошь. Необходимо описать процедуру, которая возвращает положительное наименьшее значение элемента вектора A[n], N<=20.
Можно и без подробностей, типа полож. наим. и т.д. Объясните хотя бы тело программы..

[klem4]

nMin := 0;
for i := 1 to n do
 if (x[i]>0)  and ( (nMin=0) or (x[i]<x[nMin]) ) then
  nMin := i;

[Дёнис]

Даже зарегистрировался)) Спасибо, сейчас попробую..