Напишите программы в pascalabc: 1). заполнить массив из 10 элементов случайными числами в интервале [-50..50] и отсортировать его с алгоритма быстрой сортировки. 2). заполнить массив из 10 элементов случайными числами в интервале [-50..50] и отсортировать его по убыванию с алгоритма быстрой сортировки.

program qwerty; uses crt; var a: real; beginclrscr; writeln('введите количество миль'); readln(a); a: = a*1.6; writeln('кол-во киллометров - ',a: 2: 2); readkey; end.

function max (x,y : longint) : longint; begin  if x> y then max: =x else max: =y; end; var k : longint; s : string; begin  readln(s);   while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do

begin    k: =k+1;

    delete(s,max(max(pos('.',s),pos('! ',('? ',); end;   writeln(k); end.

дано:

g= 44,1 кгц= 44100 гц

i= 16 бит

t=2 мин=120 сек

v-?

решение:

v=g*i*t

v= 44100гц*16 бит*120 сек= 8467200 бит

v= 8467200/8*1024*1024= 10 мбайт

моя улица в солнечной системе. это земля. она находится третьей от солнца.