Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Pascal!!
Ввести массив А[1..10]. Отсортировать по убыванию элементы массива А любым методом. Вывести на экран в два столбца, стоящих рядом, исходный и отсортированный массивы, элементы вывести через точку с запятой.

Ответ оставил Гость

Var b,a: array[1..10] of integer;I,j: integer;BeginFor i:=1 to 10 do read(a[i]);B:=a;For j:=9 downto 1 doFor i:=1 to j doIf (b[i]