Удалить элемент массива

[pavel42]

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

program zadacha6;
uses crt;
type mass=array[1..50] of integer;

var a:mass;
n : integer;

procedure massiv(var n:integer; var x:mass);
var  i : integer;
begin
write('vvedite koli4estvo elementov n=');
readln(n);
for i:=1 to n do
 begin
  x[i]:=random(10)-5;
  write(x[i]:4);
 end;
 writeln;
end;

procedure delete(var A : mass; var n : integer);
var
k,i,t : integer;
begin
write('Zadannoe chislo: ');
readln(k);
t := -1;
for i:=1 to n do
 if (A[i]>0) and (A[i]>k) then
  begin
  t := i;
  break;
  end;

if t = -1 then writeln('Net takih')
else
 begin
 dec(n);
 for i:=t to n do
  A[i] := A[i+1];
 end;

{ выводим }
writeln;
for i:=1 to n do
 write(A[i]:4);

end;

begin
clrscr;
randomize;
massiv(n,a);
delete(a,n);
readln;
end.

Подскажите как тут можно обойтись без break...в процедуре delete

[samec]

воспользоваться циклом с пост или пред условием. (repeat...until или while)

[pavel42]

Если бы я знал как ))))

[Sazary]

Вместо цикла for сделайте что-то вроде:

i := 1;
while (i<=n) and (t=-1) do

А чем вам не нравится break?

[pavel42]

мне все нравиться...преподу не нравиться((