Пользователь вводит с клавиатуры несколько
английских слов (количество определите сами). Написать программу, которая выдает
список этих слов, упорядоченных по алфавиту (для упрощения задачи считайте, что
все слова начинаются с разной буквы). Паскаль abc.Помогите пожалуйста.
английских слов (количество определите сами). Написать программу, которая выдает
список этих слов, упорядоченных по алфавиту (для упрощения задачи считайте, что
все слова начинаются с разной буквы). Паскаль abc.Помогите пожалуйста.
More Questions From This User See All
Answers & Comments
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.