Em hãy viết chương trình cho biết số từ của đoạn dài nhất liên tiếp các từ
có cùng độ dài của một đoạn văn bản cho trước.
uses crt;
var s:string; a:array[1..1000]of longint;
i,t,n,max,j:longint;
begin
clrscr;
write('s=');
readln(s);
n:=length(s);
t:=1;
For i:=1 to n do
If(s[i]<>' ')or(i=1)then
a[t]:=a[t]+1 else inc(t);
for i:=1 to t do
begin
j:=i;
while a[j]=a[i] do inc(j);
If j-i>max then max:=j-i;
end;
writeln(max);
readln
end.
đây là bài cô mk chữa mà mk chưa hiểu lắm giải nghĩa giúp mk với ạ
