Отсортируйте слова в лексикографическом порядке. (шоссе, чехол, справа, расчётливый, гимнастика, посетить, гитара, справедливый, шофёр, , канал, баскетбол, расчёт, спортсмен, почерк

лексикогрфический порядок: сравниваются первые буквы, если они однаковы, то вторые, третьи и т.д.

баскетбол

гимнастика

гитара

канал

посетить

почерк

расчёт

расчётливый

спортсмен

справа

справедливый

чехол

шоссе

шофёр

Переведём всё в двоичную систему счисления и уравняем длины записей: 5e_16 = 0101 1110_2 (каждая цифра в 16-ой сс соответствует четырёх цифрам в 2 сс) 111011_2 = 0011 1011_2 117_8 = 001 001 111_2 = 0100 1111_2 (каждая цифра 8сс соответствует трём цифрам в 2сс) 215_10 = 128 + 64 + 16 + 4 + 2 + 1 = 2^7 + 2^6 + 2^4 + 2^2 + 2^1 + 2^0 = 1101 0111_2. итак, надо сравнить 0101 1110, 0011 1011, 0100 1111, 1101 0111. 0011 1011 < 0100 1111 < 0101 1110 < 1101 0111 111011_2 < 117_8 < 5e_16 < 215_10

//pascalabc.net 3.2 {1} begin var a: =readarrinteger('вводите: ', readinteger('n =')); write ('ср. арифметическое: ', a.average); end. {2} begin var a: =readarrinteger('водите: ', readinteger('n =')); var sum: =0; for var i: =0 to length(a)-1 do if i.isodd then sum+=a[i]; write ('сумма: ', sum); end. {3} begin var a: =readarrinteger('вводите: ', readinteger('кол-во элементов: ')); var otr: =0; var pol: =0; for var i: =0 to length(a)-1 do if a[i]< 0 then otr+=1 else pol+=1; write('массив: '); a.println; if otr=pol then write ('отрицательных и положительных элементов равное кол-во') else  if otr> pol then write('отрицательных больше на ', otr-pol) else write ('положительных больше на ', pol-otr); end.