type t=text;
t1=array[1..10] of integer;

function kol(s:string):integer;

{КОЛ-ВО СТРОК В СТРОКЕ S}

var i,k:integer;
begin
k:=0;
s:='';
for i:=1 to (length(s)-1) do
if (s[i]=' ') and (s[i+1]<>' ')
then k:=k+1;
kol:=k;
end;


procedure print(a:t1; n:integer);

{ВЫВОД МАССИВА 'A' РАЗМЕРНОСТЬЮ 'n' ИЗ КОЛ-ВА Слов}

var i:integer;
begin
for i:=1 to n do
writeln(a[i]);
end;


{ОСНОВНАЯ ПРОГРАММА}

var f:t;
s:string;
i:integer;
a:t1;
begin
assign(f,namef);
rewrite(f);
writeln('vvedite kol-vo cmpok: ');
readln(n);
for i:=1 to n do
begin
readln(s);
writeln(f,s);
end;
i:=1;
while not eof(f) do
begin
readln(f,s);
a[i]:=kol(s);
i:=i+1;
end;
print(a,n);
readln;
end.





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