в масиве а из 5 эл найти min положительные элементы

min = 0; for( i = 0, c = 0; i < 5; i++ ) if (a[ i ] >= 0) { if ((c == 0) | (a[ min ] < a[ i ]) { c++; min = i; } }

переменные
...
min:=-5;
repeat
if a[ i ]>0 then min:=a;
until min>0;
for i:=1 to 5 do
if (a[ i ]>0) and (a[ i ]