Т.к. автор не указал требуемый язык программирования, то я напишу удобный мне - Pascal.var a:array[1..1000] of integer; i, n, min:integer;beginmin:=30001;writeln('введите количество элементов массива');readln(n);for i:=1 to n do beginwriteln('введите число');readln(a[i]);end;for i:=1 to n doif (a[i]<min)and(a[i]mod 5=0)and(a[i]>0) then min:=a[i];writeln('минимальное положительное число=',min);end.