вообще бред какой-то творю
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.
Сообщение отредактировано: лоен -