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

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

  1. Ответ
    Ответ дан Аленусик
    Var a:array[1..100] of string;
    n:string;
    i,m,j:integer;
    begin
    writeln ('Введи кол-во слов');
    readln(m);
    for i:=1 to m do
     begin
     readln (n);
     a[i]:=n;
     end;
    for j:=1 to m do
    for i:=1 to m-1 do
    if a[i]>a[i+1] then
    begin
    n:=a[i];
    a[i]:=a[i+1];
    a[i+1]:=n;
    end;
    writeln;
    for i:=1 to m do
    writeln (a[i]);
    end.
Самые новые вопросы