Определить порядковый номер 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-ый положительный элимент выводил, а остальные нет!
как это сделать ?

[volvo]

мое предложение удалить его к черту! как неготивную тему!

Ага, особенно актуально после твоего

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

А давай не только другие будут соблюдать поговорку, но и ты тоже? Ничего не надо никуда удалять.

[BanneD]

Ага, особенно актуально после твоего
А давай не только другие будут соблюдать поговорку, но и ты тоже? Ничего не надо никуда удалять.

Я за=) почему не надо удалять? какой смысл от нее?

[Lapp]

Я за=) почему не надо удалять? какой смысл от нее?

В назидание потомкам )). На этом фрруме практически ничего не удаляется. Что сказано, то сказано.

[BanneD]

В назидание потомкам )). На этом фрруме практически ничего не удаляется. Что сказано, то сказано.

Да будет примером для других! ну надеюсь не я один такой косяковый!
поучатся на мойх ошибках! а то за 1 пост я столько каши наварил!
что пришлось расхлебывать её всем