Скачиваний:
283
Добавлен:
04.03.2014
Размер:
351 б
Скачать

unit tol;
interface
procedure slova(n, m, p:integer);
implementation
procedure slova;
var
a:array[1..20] of string;
i:integer;
k:string;
begin
writeln('Ёб室­л© ¬ ббЁў');
for i:=1 to n do
write(a[i], ' ');
for m:=1 to n do
for i:=1 to n-m do
begin
if a[i]>a[i+1] then
begin
k:=a[i];
a[i]:=a[i+1];
a[i+1]:=k;
end;
end;
end;end.
Соседние файлы в папке MOD