Удалить первый отрицательный элемент одномерного массива, если такой элемент есть.

Program enot;

VAR a: array [1 ... 5] of integer;

i, b: integer;

begin

for i: = 1 to 5 do

a[i]: = random (51) - 25;

for i: = 1 to 5 do

write (a[i],' ') ;

writeln () ;

for i: = 1 to 5 do

if a[i]<0 then

begin b:=a[i];

break

end;

for i: = 1 to 5 do

if a[i]b

then

write (' ', a[i]) ;

end.