profile
Опубликовано 6 лет назад по предмету Информатика от Аккаунт удален

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

  1. Ответ
    Ответ дан kreved77
    Если я не ошибаюсь, то можно использовать обычную сортировку пузырьком и для строк.
    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.

    Попробуй эту, вроде должна работать. 
    1. Ответ
      Ответ дан Аккаунт удален
      Но ведь у меня нет условия, что все строки одной длины
Самые новые вопросы