program EXAM8;

{$APPTYPE CONSOLE}

uses
SysUtils;
type sss=string[80];
mas=array [1..30] of sss;
var
s1,s,s2:mas;
p:sss;
n,i,j,m,u:integer;
Function Vvod(var n:integer;var s:mas):mas;
var i:integer;
begin
writeln('Vvedite kol-vo Strok:');
readln(n);
writeln('Vvedite elementi strok:');
For i:=1 to n do
readln(s[i]);
writeln('***************');
writeln('Vveli:');
writeln;
For i:=1 to n do writeln(s[i]:4);
end;
Function Sort(s:mas;i,j,m:integer):mas;
var p:sss;
begin
for i:=1 to n-1 do
for j:=1 to n-i do
if s[j]>s[j+1] then begin
p:=s[j];
s[j]:=s[j+1];
s[j+1]:=p;
end;
for i:=1 to n do writeln(s[i]:4);
end;
begin
Vvod(n,s1);
writeln;
writeln('***************');
writeln('Sort:');
Sort(s1,i,j,n);
writeln;
Vvod(m,s2);
writeln;
Writeln('Sort:');
Sort(s2,i,j,m);
writeln;
readln;
end.





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