Дан массив: a={1,9,5,8}.
После сортировки массива (сортировка методом выбора) — порядок убывающий. Заполни таблицу.

Индекс
1
2
3
4
Значение
1
9
5
8
1 шаг
1
9
5
8
2 шаг
8
3 шаг
4 шаг
9
8
5
1

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 мбайт

var

a,b: integer;

begin

write('введите в одной строке два целых числа и нажмите < enter> ');

readln(a,b);

if a=b then writeln('числа равны')

else 

if a> b then writeln(a,' больше')

else writeln(b,' больше')

end.

по одному.

обь в канал, мир,енесей,россия проплыли канал. обь выплыла и поплыла себе куда надо.

мир,енесей,россия вернулись обратно перед каналом

в канал заплыл восток.

мир,енесей,россия проплыли канал. восток уплыл

и тд