Технология выполнения индивидуальных заданий. Часть 1 - 33 стр.

UptoLike

33
begin
i:=n;
while (i>0 ) and (a[i] > x) do
begin
a[i+1]:=a[i]; i:=i-1
end;
a[i+1]:=x; n:=n+1
end;
procedure OutPut(n:integer;const a: vect);
var i:integer;
begin
for i:=1 to n do
write(a[i],
' ' );
writeln
end;
begin
writeln('Введите размер массива');
read(n);
writeln('Введите элементы ');
for i:=1 to n do read(a[i]);
writeln('Введите количество элем. последовательности');
read(m);
writeln('Введите элементы последовательности');
for i:=1 to m do
begin
read(x); Ins_Sort(x, n, a)
end;
OutPut(n, a)
end.