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

Question

Информатика

Енюха

8 июня, 00:29

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

+4

Ответы (1)

Знаете ответ на вопрос?

Авдий · Answer 1

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.