Дистанционная подготовка: Проверте это быстрая пргграмма или есть ещё быстрее
Проверте это быстрая пргграмма или есть ещё быстрее
от Алмаз Ханнанов - Пятница 22 Март 2019, 08:44
112313. Сортировка по последней цифре
  program qq;
var a:array[1..10000] of integer;
c,i,j,n:integer;
begin
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.