Задача 1 (найти в каждой строке кол-во самых длинных слов)

Посмотреть архив целиком
1) найти кол-во максимальных элементов в массиве строк (как понимаю, надо написать процедуру/функцию, которая находит максимальное кол-во элементов в строке, а в основной программе уже найти кол-во максимальных элементов в тексте)

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

type mas=array[1..20] of string;

procedure SLOVO (var s:string;var b:mas;var kol:integer);
var slovo,max:string;
i,n,p:integer;
begin

{удаление пробелов - необязательно думаю}
p:=pos(' ',s);
while p>0 do
begin
delete(s,p,1);
p:=pos(' ',s);
end;

{сама программа}
s:=s+' ';
slovo:='';
n:=0;
for i:=1 to length(s) do if s[i]<>' ' then slovo:=slovo+s[i]
else begin
n:=n+1;
b[n]:=slovo;
slovo:=''
end;
max:=b[1];
for i:=1 to n do
if length(b[i])>length(max) then max:=b[i];
kol:=0;
for i:=1 to n do
if length(b[i])=length(max) then
kol:=kol+1;
end;

var s:string;
b,b1:mas;
n,i:integer;kol:array[1..20] of integer;
begin
writeln('Vvedite kolichestvo strok');
readln(n);
for i:=1 to n do begin
writeln('Vvedite stroku');
readln(b1[i]);
end;
for i:=1 to n do SLOVO(b1[i],b,kol[i]);
writeln('Izmenennie stroki');
for i:=1 to n do
writeln('Kolichestvo max dlin slov ',kol[i],' v stroke ',i);
readln;
end.





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