Решить на вставку в массив. дан целочисленный линейный массив. вставить в него заданное число после второго положительного элемента.

176

270

Посмотреть ответы 2

Ответы на вопрос:

Дарьяпоможет

Информатика

4,6(61 оценок)

//pascal abc.net v3.1 сборка 1219 const n=6; var ar: array[1..n] of integer; i,a,k,ki: integer; begin k: =0; write('a: '); readln(a); writeln('array: '); for i: =1 to n-1 do begin readln(ar[i]); if ar[i]> 0 then begin inc(k); if k=2 then ki: =i; end; end; for i: =n-1 downto ki+1 do ar[i+1]: =ar[i]; ar[ki+1]: =a; writeln('final array: '); for i: =1 to n do write(ar[i]: 4); end. пример ввода: 6 1 2 3 4 5 пример вывода: 1 2 6 3 4 5