Рюкза́к (от нем. Rücksack — заплечная сумка) — специализированная сумка для длительной переноски на спине различных грузов. Снабжён двумя (реже — одной) косыми (идут от области шеи в бока) лямками, надеваемыми на плечи, а также, в большинстве случаев, ручкой с верхней стороны, стабилизирующими и разгрузочными ремнями, и дополнительными элементами для навесного закрепления предметов экипировки и амуниции, в зависимости от области его применения. В зависимости от конструкции, может напоминать армейский ранец или вещмешок, но отличается от ранца тем, что последний снабжён прямыми лямками и не имеет дополнительных элементов, а от вещмешка тем, что лямки рюкзака раздельны и в верхней части жёстко закреплены (пришиты), а не привязываются к горловине мешка.
Var a,b,c:array[1..20] of integer; ar:ty; n,m,k,i:integer;
procedure quicksort(var a:ty; Lo,Hi: integer);
procedure sort(l,r: integer); var i,j,x,y: integer; begin i:=l; j:=r; x:=a[random(r-l+1)+l]; repeat while a[i]<x do i:=i+1; while x<a[j] do j:=j-1; if i<=j then begin if a[i] > a[j] then begin y:=a[i]; a[i]:=a[j]; a[j]:=y; end; i:=i+1; j:=j-1; end; until i>=j; if l<j then sort(l,j); if i<r then sort(i,r); end;
begin; randomize; sort(Lo,Hi); end;
begin readln(n); for i:=1 to n do begin readln(a[i]); ar[i]:=a[i]; end; readln(m); for i:=1 to m do begin readln(b[i]); ar[i+n]:=b[i]; end; readln(k); for i:=1 to k do begin readln(c[i]); ar[i+n+m]:=c[i]; end; quicksort(ar,1,n+m+k); writeln('Final array:'); for i:=1 to n+m+k do write(ar[i]:4); end.
Пример ввода: 3 1 2 3 3 1 2 3 3 1 2 3 Пример вывода: Final array: 1 1 1 2 2 2 3 3 3
