Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / MOD / RRR
.PASunit 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.