Вставить число, введённое с клавиатуры после первого отрицательного элемента массива. Если отрицательный элемент отсутствует, то вставить число в конец массива.

Vara,b,c,i:longint;
m:array[1..1000] of longint;
Begin
c:=0;
readln(a);
readln(b);
for i:=1 to b do
begin
read(m[i+c]);
if (m[i+c]<0) and (c=0) then
begin
m[i+1]:=a;
c:=1;
end;
end;
for i:=1 to b+1 do
write(m[i], );
End.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.