Дистанционная подготовка: Алмаз Забиров эта программа будет работать?)
Алмаз Забиров эта программа будет работать?)
от Алмаз Ханнанов - Вторник 26 Март 2019, 12:18
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.