Определить порядковый номер 1-го положительного эл Опции

[BanneD]

Код

program massiv;
uses crt;
const n=50;
type t=array [1..n] of integer;
var a:t;
i:integer; m:integer;
begin
clrscr;
randomize;
read(m);
for i:=1 to m do
a[i]:=5-random(10);
for i:=1 to m do
if a[i]>0 then writeln('i=',i);
for i:=1 to m do
writeln('a[',i,']=',a[i]);
end.

всё тут сделано но нужно чтобы не все положительные элименты, а нужно чтобы только 1-ый положительный элимент выводил, а остальные нет!
как это сделать ?

[мисс_граффити]

Стесняюсь спросить... а чем вызвана такая ненависть к ClrScr?

[BanneD]

Стесняюсь спросить... а чем вызвана такая ненависть к ClrScr?

А когда ты делаешь ClrScr - ты стираешь ВСЕ (не только свое). А ты сотри все с диска, прежде чем записать туда свой файл - флаг тебе в руки. Во, крастота-то будет! Все чистенько, все в порядочке!

Кроме того, CRT нарушает стандартную модель доступа к файлам (что не написано в ее описании) и приводит к многим осложнениям при работе с диском.

Умные дяденьки придумали ядерную бомбу. Иди, используй..

Если от нее столько вреда, так зачем же нас учат использовать ее ?!

Еще раз повторяю: репутация не есть админский способ наказания, это средство для каждого участника выразить свое мнение о человеке. Та угроза была, конечно, профанацией и скорее шуткой, но смайл я не поставил - и получил в ответ грубость (наверное, заслуженную). Я снимаю премод BanneD, убираю минус из репутации и извиняюсь.

Я тоже принашу свои извинения! но впредь давай соблюдать поговорку как правило"7-раз отмерь, 1-раз отреж"
надо подумать прежде чем ответить как отриагирует на него другой человек! моя выспылчивость тоже меня достала! нодо было тоже подумать прежде чем отвечать на горячую голову!
впредь надеюсь что болше такого не повторится

я так и не понял ты хочешь куда то выкласт пост? мое предложение удалить его к черту! как неготивную тему!