program sortd;
type
indata=string[80];
mas=array[1..80] of indata;
var
st:mas;
i,n:integer;
Procedure sortstring(var m:mas; n:integer);
var
min,i_min,k,i,j:integer;
r:indata;
begin
for k:=1 to n-1 do
begin
min:=length(m[k]);
i_min:=k;
for i:=k to n do
if length(m[i])<min then
begin
min:=length(m[i]);
i_min:=i;
end;
r:=m[k];
m[k]:=m[i_min];
m[i_min]:=r;
end;
end;
begin
writeln (' :');
readln (n);
writeln (' :');
for i:=1 to n do
readln (st[i]);
Writeln (' :');
for i:=1 to n do
writeln (st[i]);
sortstring(st,n);
Writeln (' ');
for i:=1 to n do
writeln (st[i]);
end.
1. Turbo Pascal.
2. .
3. .
4. .
5. , .
6. .
1. . , . .
2. Txt. St1 Txt St2.
3. Txt. St1 St2.
4. Txt. St .
5. . .
6. . .
7. . , . .
8. Txt. St1 Txt St2.
9. Txt. St1 St2.
10. Txt. St .
11. . .
12. . .
13. . , . .
14. Txt. St1 Txt St2.
15. Txt. St1 St2.
16. Txt. St .
17. . .
18. . .
19. . , . .
20. Txt. St1 Txt St2.
21. Txt. St1 St2.
22. Txt. St .
23. . .
24. . .
25. . , . .
|
|
|
26. Txt. St1 Txt St2.
27. Txt. St1 St2.
28. Txt. St .
29. . .
30. . .
31. . , . .
32. Txt. St1 Txt St2.
33. Txt. St1 St2.
34. Txt. St .
35. . .
36. . .
1. ?
2. Turbo Pascal ?
3. ?
4. ?
