сортировка строк

Посмотреть архив целиком
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

type str=string[30];
tmas=array[1..10] of str;
procedure SORT(var T:tmas;n:integer);
var i,j:integer;
buf:str;
begin
for j:=1 to n-1 do
for i:=1 to n-j do
if T[i]>T[i+1] then begin
buf:=T[i];
T[i]:=T[i+1];
T[i+1]:=buf;
end;
end;

var F:tmas;
i,n:integer;
begin
writeln ('Vvedite kolichestvo strok');
readln(n);
writeln('Vvedite stroki');
for i:=1 to n do readln(F[i]);
SORT(F,n);
writeln;
writeln('Yporiadochennii massiv strok');
for i:=1 to n do writeln(F[i]);
readln;

end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.