Developing.ru

Код: Выделить всё

 uses crt;
const n=10;
var s1,s2:array[1..n] of string;
    i,j:byte;
    x,y:string;
begin
clrscr;
writeln('Введите ',n,' слов латинским алфавитом:');
for i:=1 to n do
 begin
  write('Слово ',i,'  ');
  readln(s1[i]);
 end;
{создадим такой же массив, переведем все символы в верхний регистр}
for i:=1 to n do
 begin
  s2[i]:='';
  for j:=1 to length(s1[i]) do
  s2[i]:=s2[i]+Upcase(s1[i][j]);
 end;
for i:=1 to n-1 do      {сортируем пузырьком по возрастанию = по алфавиту}
for j:=1 to n-1 do
if (s2[j]>s2[j+1]) then
   begin
    x:=s1[j];s1[j]:=s1[j+1];s1[j+1]:=x;{переставляем слова в основном массиве}
    y:=s2[j];s2[j]:=s2[j+1];s2[j+1]:=y;{и во вспомогательном}
   end;
{выводим по алфавиту}
writeln('Слова по алфавиту:');
for i:=1 to n do
writeln(s1[i],' ');
readln
end.