Напишите программу, которая сортирует элементы массива по возрастанию последней цифры десятичной записи чисел. Входные данные Первая строка содержит размер массива N. Во второй строке через пробел задаются N чисел - элементы массива. Гарантируется, что 0 < N ≤ 10000. Выходные данные Программа должна вывести в одной строке элементы массива, отсортированного в порядке возрастания последней цифры в десятичной записи чисел, разделив их пробелами. Числа, у которых последняя цифра одинаковая, должны быть выведены в том же порядке, в котором они стояли в исходной последовательности. Примеры входные данные 6 219 234 890 81 73 96 выходные данные 890 81 73 234 96 219

Question

Сергей Агафонов

Информатика

26 апреля, 11:10

Напишите программу, которая сортирует элементы массива по возрастанию последней цифры десятичной записи чисел. Входные данные Первая строка содержит размер массива N. Во второй строке через пробел задаются N чисел - элементы массива. Гарантируется, что 0 < N ≤ 10000. Выходные данные Программа должна вывести в одной строке элементы массива, отсортированного в порядке возрастания последней цифры в десятичной записи чисел, разделив их пробелами. Числа, у которых последняя цифра одинаковая, должны быть выведены в том же порядке, в котором они стояли в исходной последовательности. Примеры входные данные 6 219 234 890 81 73 96 выходные данные 890 81 73 234 96 219

+4

Ответы (1)

Знаешь ответ на этот вопрос?

Роман Трофимов · Answer 1

uses crt; var c, i, j, n:integer; a:array [1 ... 1000] of integer; begin clrscr; read (n); for i:=1 to n do read (a[i]); for i:=1 to n do for j:=1 to n-1 do if (a[j] mod 10) > (a[j+1] mod 10) then begin c:=a[j]; a[j]:=a[j+1]; a[j+1]:=c end; for i:=1 to n do write (a[i],' ') end.