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

[лоен]

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

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

[volvo]

все равно не работает х_х

Не принято! Подпись мою внимательно читал? Программа проверена, вот лог работы:

Vvedite dliny posledovatelnosti(n<=10000)
10
Vvedite posledovatelnost
1
20
54
45
45
46
84
21
54
84

46
45
45
84
54
84
54
21
1
20

Что не устроило? Как ДОЛЖНО БЫТЬ на этих исходных данных? Сказать "все равно не работает" - слишком просто, тебе не кажется?

Добавлено через 2 мин.
Или поменять

  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;

единицу на 0 - это ОЧЕНЬ сложно? Ты же знаешь свое задание, я написал, что значит ноль, а что значит единица для Flag-а... В чем проблема вообще?