Дан массив. Размер произвольный. Упорядочить данную последовательность по убыванию. Массив задан датчиком случайных чисел на интервале [-54, 33].

program mss; uses crt; var v,m,h,r: real; beginclrscr; writeln('введите радиус'); readln(r); writeln('введите высоту'); readln(h); v: = 3.14*sqr(r)*h; m: = 1200*v; writeln('    ',m: 2: 2,' кг'); readln; end.

program sir; var y,x,h: real; beginx: =280; h: =0.1; while h< =1 do  begin  y: =x*h;   writeln('цена за ',h*1000,' грамм ',y,' руб');   h: =h+0.1  end; end.

1- 2 брата близнеца, один из них возвращается назад

2 - плывет папа, возвращается другой брат

3 -    2 брата близнеца, один из них возвращается назад

4 - мама, возвращается другой брат

5 - оба брата близнеца

для кодирования 64 цветов нужно 6 бит (2^6 = 64). для 600х450 пикселей потребуется n = 600*450*6 = 1620000 бит.

если предположить некомпактный формат хранения, при котором вышеуказанные 6 бит содержатся в одном байте (а 2 бита этого байта не используются), то для хранения n бит потребуется n/6 = 600*450 = 270000 байт = 270000/1024 кбайт = 263.6719 = 264 кбайта (примерно).

если же предположить чуть более компактный формат хранения, при котором 24 бита размещают в 3-х байтах, то для хранения n бит потребуется (n/24)*3 = 202500 байт = 202500/1024 кбайт = 197.7539 = 198 кбайт (примерно). в этом случае количество кбайт будет немного меньше, чем в первом.