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

[BaNNeD]

Сообщение от BaNNeD

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

есть ответ мб кому понадобится

program massiv;
uses crt;
const n=50;
type t=array [1..n] of integer;
var a:t;
i:integer; m:integer;
begin
clrscr;
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]);
 
for i:=1 to m do
begin
if a[i]>0 then
begin
writeln('номер первого положительного:',i); break;
end;
end;
 
end.

так же можно использовать метку вместо операции break

[Asker13]

for i:=1 to m do
begin
if a[i]>0 then
begin
writeln('номер первого положительного:',i); break;
end;

Можно так:

i := 1;
while (a[i] < 0) and (i <= M) do Inc(i);
if i <= M then WriteLn('Первый положительный элемент: ', a[i])
else WriteLn('Положительных элементов нет!');

[Prime123]

program massiv;
uses crt;
const n=50;
type t=array [1..n] of integer;
var a:t;
i,m:integer;
flag:boolean;
begin
clrscr;
flag:=true;
randomize;
read(m);
for i:=1 to m do
a[i]:=5-random(10);
i:=0;
while (flag=true) do
begin
i:=i+1;
if a[i]>0 then 
begin
writeln('i=',i);
flag:=false;
end;
if (i=m) and (flag=true) then begin
                                       flag:=false;
                                       writeln('There is no positive elements');
                                       end;
end;
for i:=1 to m do
writeln('a[',i,']=',a[i]);
end.

Так,если нельзя использовать break
Честно сказать,точно не помню,но в Turbo Pascal break кажется нет,во всяком случае я им пользоваться начал только в Delphi

[BaNNeD]

Сообщение от Prime123

Так,если нельзя использовать break
Честно сказать,точно не помню,но в Turbo Pascal break кажется нет,во всяком случае я им пользоваться начал только в Delphi

операция принужденной остановки цикла в ТП работает