zad. trudniejsze.(zad wieska piaseckiego)

jest wycieczka, sa ludzie no i mamy dana tablice, w ktorej w kolejnych elementach jest zapisana waga tych ludzi, zaczynamy plywac kajakami - maja one pewna wypornaosc (w kg) i sa 2 osobowe.
musimy tak rozmiescic ludzi, zeby bylo kajakow jak najmniej, a rownoczesnie zeby nikt nie zatona. zakladamy, ze zadna osoba nie jest na tyle gruba, zeby nie przekroczyla lodzi.
napisz algorytm, ktory usadzi ludzi.
dane: wypornosc, ilosc ludzi i ich waga.
wynik: podanie nr osob - ktora z ktora plynie

!problem jest z pomyslem


!rozwiazanie: posortuj wagi ludzi od min do max, sprawdz czy min+maxjesli nie to max-1;

rozw:

********************************
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
i,j,los,kajaki,k:integer;
wyp,temp1,temp2:real;
os:array of integer;

begin
writeln('podaj liczbe osob');
readln(los);
writeln('wypornosc lodzi wynosi');
readln(wyp);
writeln('podaj masy osob');
setlength(os,los);
for i:=0 to los-1 do
begin
writeln('nr ',i,' = ');
readln(os[i]);
while os[i]>wyp do
begin
writeln('ta osoba nie powinna wsiadac do kajaku, bo kajak pojdzie na dno');
writeln('podaj osobe na to miejsce');
readln(os[i]);
end;
end;
i:=0;
j:=los-1;
k:=1;

{************po posortowaniu*****************}

repeat
if os[i]+os[j]<=wyp then
begin
writeln('w kajaku nr ',k,' plyna os nr ',i,' ',j);
i:=i+1;
j:=j-1;
k:=k+1;
end
else
begin
writeln('w kajaku nr ',k,'plynie tylko jedna os z nr ',j);
j:=j-1;
k:=k+1;
end;
until i>j;
readln;
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.

*********************************

zad
jest tablica dynamiczna, zawiera liczby C bez znakow
tablica jest wypelniona
trzeba posortowac te liczby wg okreslonego bitu (np wg bitu nr 5);
!liczba calkowita bez znaku to cardinal
!2 procedurki: bity to od 0 do 32
!operacje bitowe to shl, shr
!posortuj to

**********************************

zad
sprobuj wyswietlic liczbe w systemie dwojkowym (binarnym);
!skorzystaj z pamieci bit po bicie!
!przesuniecia bitowe shl, shr - operatory;
shl - przesun w lewo o ilosc bitow;
end, or