исходник:
Код
program dfs;
Const
Max=100;
Var
Names:Array[1..Max] Of String;
n,i,j,k:Integer;
in_file:Text;
min:String;
Begin
Assign(in_file,'C:\spicok.txt');
Reset (in_file);
n:=0;
While Not Eof(in_file) Do
Begin
ReadLn(in_file,Names[n]);
Inc(n)
End;
Close(in_file);
For i:=1 To n-1 Do
Begin
k:=i;
min:=Names[i];
For j:=i+1 To n-2 Do
If min>Names[j] Then
Begin
k:=j;
min:=Names[j]
End;
If (k<>i) Then
Begin
Names[k]:=Names[i];
Names[i]:=min
End
End;
For i:=1 To n-1 Do
WriteLn(Names[i])
End.
Const
Max=100;
Var
Names:Array[1..Max] Of String;
n,i,j,k:Integer;
in_file:Text;
min:String;
Begin
Assign(in_file,'C:\spicok.txt');
Reset (in_file);
n:=0;
While Not Eof(in_file) Do
Begin
ReadLn(in_file,Names[n]);
Inc(n)
End;
Close(in_file);
For i:=1 To n-1 Do
Begin
k:=i;
min:=Names[i];
For j:=i+1 To n-2 Do
If min>Names[j] Then
Begin
k:=j;
min:=Names[j]
End;
If (k<>i) Then
Begin
Names[k]:=Names[i];
Names[i]:=min
End
End;
For i:=1 To n-1 Do
WriteLn(Names[i])
End.