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

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

вообще все то же можно сделать без break и тем более без goto. Циклы while/repeat вы проходили?

[BanneD]

вообще все то же можно сделать без break и тем более без goto. Циклы while/repeat вы проходили?

Да цикл с предусловием и с постусловием! в том то и дело я юзал эти циклы около 2-х часов но так и не нашел решения!
а с параметром как то всё быстренько решилось!

[Lapp]

в том то и дело я юзал эти циклы около 2-х часов но так и не нашел решения!
а с параметром как то всё быстренько решилось!

А ты не ведись на быстренькие решения. Подумаешь, 2 часа. Надо однажды посидеть нсколько дней/недель/месяцев для того, чтобы потом выдавать хорошие решения за доли секунды..
В твоей задаче нет абсолютно ничего особенного, такие конструкции применяются десятками в любой обычной программе.

program massiv;
const
  n=50;
type
  t=array [1..n] of integer;
var
  a:t;
  i,m:integer;

begin
  randomize;
  write('введите кол-во элементов: ');
  readln(m);
  for i:=1 to m do a[i]:=random(20)-15;
  for i:=1 to m do writeln('a[',i,'] = ',a[i]:4);
  i:=1;
  while (i<=m) and (a[i]<=0) do Inc(i);
  if i<=m then writeln('номер первого положительного: ',i);
  ReadLn
end.

PS
еще раз увижу CRT и ClrScr не по делу - буду понижать репу..

[BanneD]

PS
еще раз увижу CRT и ClrScr не по делу - буду понижать репу..

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