Дан массив строк Необходимо отсортировать эти строчки в алфавитном порядке (нужна

Дан массив строк Необходимо отсортировать эти строчки в алфавитном порядке (нужна определенная процедура, конкретный цикл, который это сможет сделать).
Помогите, нужно безотлагательно!

Задать свой вопрос
1 ответ
Если я не заблуждаюсь, то можно использовать обыденную сортировку пузырьком и для строк.
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]gt;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.

Попробуй эту, вроде обязана работать. 
Мирослава
Но ведь у меня нет условия, что все строки одной длины
Komaristyj Viktor
По-моему, они все одинаково отсортируются по алфавиту. Не могу утверждать, ибо сам не уверен.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт