program Examen23;

{$APPTYPE CONSOLE}

uses
SysUtils;

type mas=array[1..30] of string[80];
var
a,b,d:mas;
m,n,k,i,j,u,f:integer;
g:string[80];
p:string[80];
Procedure Sort(a:mas;m,i:integer;var k:integer);
var j:integer;
begin
for i:=1 to m-1 do
for j:=1 to m-i do
if a[j]>a[j+1] then begin p:=b[j];
a[j]:=a[j+1];
a[j+1]:=p;
end;
Writeln('Posledniy element po alpfawitu:',a[n]);
g:=a[n];
k:=0;
for i:=1 to length(g) do
if g[i]='a' then k:=k+1;
writeln('Kol-vo "K" v poslednem slove:',k);
readln;
end;
begin
writeln('Vvedite kol-vo strok:');
readln(n);
writeln('Vvedite stroki:');
for i:=1 to n do
readln(b[i]);
writeln('Vveli:');
writeln;
for i:=1 to n do
writeln(b[i]:4);
writeln;
writeln('Sort:');
for i:=1 to n do writeln(b[i]:4);
writeln;
sort(b,n,i,k);
writeln;
writeln('Vvedite kol-vo strok:');
readln(f);
writeln('Vvedite stroki:');
for u:=1 to f do
readln(d[u]);
writeln('Vveli:');
writeln;
for u:=1 to f do
writeln(d[u]:4);
writeln;
writeln('Sort:');
for u:=1 to f do writeln(d[u]:4);
writeln;
sort(d,f,u,k);
writeln;
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.





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