Задача:
Для массива Х [1..40] вывести первый отрицательный элемент и его порядковый номер.
Вот мой вариант:
Uses Crt;
Label met1;
Var a:array[1..40] of Word;
i,k:integer;
Begin
randomize; {я могу ошибиться}
For i:=1 to 40 do
a[i]:=random(1000)-1000;
For i:=1 to 40 do
begin
if a[i]<0 then begin
k:=i; Writeln(a[i],k); goto met1;
end;
end;
met1:Readkey;
End.