затем текст выравнивается по ширине, т.е. добавить пробелы в местах где они есть, но так чтобы их разница между их количеством различалась не больше чем на 1.
Собственно листинг:
uses crt;
var a:array[1..255,1..255] of char;
b,probeli:array[1..255] of integer;
s:string;
i,n,m,j,k:integer;
begin
clrscr;
writeln('Vvedite chisla n,m(kolichestvo strok,dlina stroki)');
readln(n,m);
for i:=1 to n do
begin
writeln('Vvedite ',i,' stroku');
readln(s);
b[i]:=length(s);
for j:=1 to m do a[i,j]:=s[j];
end;
{ for i:=1 to n do writeln(b[i]);}
for i:=1 to n do
begin
for j:=1 to b[i] do if a[i,j]=' ' then probeli[i]:=probeli[i]+1;
{writeln(probeli[i]);}
if b[i]<m then
begin
for j:=1 to b[i] do s[j]:=a[i,j];
j:=1;
while j<=b[i] do
begin
if s[j]=' ' then
begin
for k:=1 to ((m-b[i]) div probeli[i]) do insert(' ',s,j);
end;
j:=j+((m-b[i]) div probeli[i])+1;
end;
for j:=1 to m do a[i,j]:=s[j];
end;
end;
for i:=1 to n do begin
writeln;
for j:=1 to m do write(a[i,j]);
end;
readkey;
end.
работает правда не правильно=(
Сообщение отредактировано: Feagor -