Алгоритм вставки; Вар i,k,x: целое число; T[1..n]: целое число; Начало чтение(и); n:=n+1; для i от n до k not-1 faire T[i+1] := T[i]; finfaire T[k] := x; End |
Процедура insert(L:list,k:1..lmax, x:element) var i,n:1..lmax; Начало n := L.длина; L.Длина:= n+1; для i от n до k not-1 faire L.T[i+1] := L.T[i]; finfaire L.T[i] := x; Конец |
Please disable your ad blocker and refresh the window to use this website.