массив. поиск. сортировка Опции

[лоен]

если нет равных элементов, то вывести массив по убыванию последней цифры.
вообще бред какой-то творю

Const
     Nmax=10000;
Var
   A:Array[1..Nmax] of Integer;
   flag:Byte;
   i,j,n:integer;
procedure Sort(Var x,y:integer);
Var
   tmp:integer;
Begin
     tmp:=x;
     x:=y;
     y:=tmp;
end;
procedure Poisk(x:integer; flag:Byte);
Var
k,y:Byte;
Begin
     flag:=1;
     y:=x mod 10;
     for I := 1 to n-1 do begin
      for k := i+1 to n do begin
        If a[i]=a[k] Then begin
              flag:=0;
              Break;
           end;
      end;
     end;
end;
Begin
     Writeln('Vvedite dliny posledovatelnosti(n<=10000)');
     Read(n);
     Writeln('Vvedite posledovatelnost');
     flag:=0;
     For i:=1 to n Do
     Begin
         Read(A[i]);
         If flag=0 Then
            Poisk(A[i],flag);
     end;
     If flag=1 Then Begin
        For i:=1 to n-1 Do Begin
            For j:=i+1 to n Do
                If (A[i]mod 10)<=(A[j]mod 10) Then
                   Sort(A[i],A[j]);
        end;
     end;
For i:=1 to n Do WriteLn(A[i]);
Readln;
Readln;
end.

Сообщение отредактировано: лоен - 22.12.2007 22:33