сможет сделать).
Помогите, нужно срочно!
Ответы:
Если я не ошибаюсь, то можно использовать обычную сортировку пузырьком и для строк.
program strsort,
var a:array[1..1000] of string,
i,j,n:integer, r:string,
begin
readln(n),
for i:=1 to n do
readln(a[i]),
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>,a[j] then begin r:=a[i], a[i]:=a[j], a[j]:=r, end,
for i:=1 to n do
writeln(a[i]),
end.
Попробуй эту, вроде должна работать.