4. Дан целочисленный массив из 10 элементов. Отсортировать отрицательные по убыванию, положительные - по возрастанию, оставив отрицательные на местах, принадлежащих, отрицательным, а положительные - на местах, принадлежащих положительным. Вывести на экран исходный и полученный массивы, дополнительных массивов не использовать.

211

309

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

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

kiska625

Информатика

4,7(46 оценок)

Var x,y,z,min: integer; begin writeln('x, y, z: '); readln(x,y,z); if x< y then min: =x else min: =y; if z< min then min: =z; writeln('удвоенное наименьшее = ',2*min); end. пример: x, y, z: 24 15 31 удвоенное наименьшее = 30