Решите в паскале, . 1)дан массив, отсортировать все его элементы до максимального по возрастанию. 2)дан массив, отсортировать все его элементы от минимального по возрастанию. 2)дан массив, отсортировать все его элементы от максимального до минимального по убыванию.

249

461

Посмотреть ответы 2

Ответы на вопрос:

Арсений4455

Информатика

4,5(3 оценок)

Pascalabc.net 3.3.5, сборка 1650 от 01.04.2018 внимание! если программа не работает, обновите версию! begin var a: =arrrandom(readinteger('n=',50); a.println; var (imin,imax): =(a.indexmin,a.indexmax); print('1: '); a? [: imax].orderby(t-> t).println; print('2: '); a? [: imin].orderby(t-> t).println; print('3: '); if imax> imin then swap(imax,imin); a? [imax+1: imin].orderbydescending(t-> t).println end. пример n= 13 -18 42 -49 -40 -28 15 4 48 -37 23 44 27 21 1: -49 -40 -28 -18 4 15 42 2: -18 42 3: 15 4 -28 -40