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.
Answers & Comments
Verified answer
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.
Пример:
Исходный массив
19 5 17 -4 23 -9 25 33 13 16
k = 10
Измененный массив:
19 5 17 -4 10 23 -9 25 33 13 16