Нужна помошь. Необходимо описать процедуру, которая возвращает положительное наименьшее значение элемента вектора A[n], N<=20.
Можно и без подробностей, типа полож. наим. и т.д. Объясните хотя бы тело программы..
nMin := 0;
for i := 1 to n do
if (x[i]>0) and ( (nMin=0) or (x[i]<x[nMin]) ) then
nMin := i;