Пользователь вводит с клавиатуры несколько английских слов (количество определите сами). Написать программу, которая выдает список этих слов, упорядоченных по алфавиту (для упрощения задачи считайте, что все слова начинаются с ...
Пользователь вводит с клавиатуры несколько
английских слов (количество определите сами). Написать программу, которая выдает
список этих слов, упорядоченных по алфавиту (для упрощения задачи считайте, что
все слова начинаются с разной буквы). Паскаль abc.Помогите пожалуйста.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы