Берёшь первый элемент массива, и проверяешь, является ли число положительным. Знаешь, как отличить положительное число от других? Потом следующий элемент, и т. д.
var i,n:integer; begin n:=random(25); writeln('Начат поиск положительных элементов в массиве'); for i:=0 to n do if random(2)=1 then writeln('Найдено'); writeln('Поиск закончен'); end.