Цитата:
Сообщение от furt123
всё, уже не нужно. сделал с помощью break;
но если кто знает ещё способы - поделитесь пож-та.
|
Пожалуйста. Но прежде позволю себе выразить поддержку Вашей неудовлетворенности найденным способом решения: все эти "break", равно как и переходы по меткам, следует применять только в каких-то экзотических случаях, а вообще стараться обходиться без них.
Код:
const
n1 = 20;
type
index1 = 1..n1;
vectorA = array[index1] of Integer;
var
n,i:byte;
A: vectorA;
begin
write('количество элементов n= ');
readln(n);
writeln('_____________________________________');
writeln('вектор (А):');
for i := 1 to n do
begin
A[i] := random(41) - 20;
write(A[i]:5);
end;
writeln;
writeln('_____________________________________');
i:=0;
Repeat
Inc(i);
if A[i]<0 then writeln(A[i]:5);
Until (A[i]<0) or (i=n);
end.