1. Подойти к пешеходному переходу 2.Посмотреть сначала на лево, затем на право 3. Если нет машин, переходить дорогу. 4. Если есть машины, дождаться пока они проедут или пропустят тебя 5. Далее перейти дорогу!
Const n=10; var a:array[1..n+1] of integer; k,i,j:integer; begin Randomize; writeln('Исходный массив'); for i:=1 to n do begin a[i]:=random(51)-10; write(a[i],' '); end; writeln; write('k = '); readln(k); j:=1; while (j<n)and(a[j]>=0) do j:=j+1; if a[j]>=0 then writeln('Отрицательных элементов нет') else begin for i:=n downto j+1 do a[i+1]:=a[i]; a[j+1]:=k; writeln('Измененный массив:'); for i:=1 to n+1 do write(a[i],' '); writeln; end; end.
