asp数组中求连续重复元素的最大重复值

来源：百度知道 编辑：UC知道 时间：2024/05/14 15:30:39
str = "8,5,8,4,9,4,4,8,6,8,5,9,4,4,7,4,6,7,0"
str_a = Split(str, ",")
如何求出每一个元素的最大连续重复值,没有连续重复的,连续重复最大值就是1,谁能帮助解决?
我要的是连续重复的元素的最大重复值,也就是连续重复的次数.比如4连续重复是两次,那么它的连续重复的最大重复值是2,其他元素没有出现连续重复,它们的连续重复的最大值都是1.

<%str = "8,5,8,4,9,4,4,8,6,8,5,9,4,4,7,4,6,7,0"
str_a = Split(str, ",")
Redim SumOne(Ubound(str_a))
Max=1
For i=0 To Ubound(str_a)
SumOne(i)=0
For ii=0 To Ubound(Str_a)
IF ii<Ubound(Str_a)
IF Str_a(i)=Str_a(ii) And Str_a(ii)=Str_a(ii+1)Then
SumOne(i)=SumOne(i)+1
End IF
End IF
IF SumOne(i)>Max Then
Max=SumOne(i)
MaxStr=Str_a(i)
End IF
Next
Next
IF Max>1 Then
Response.Write"重复次数最多的元素是"&MaxStr&"重复次数为"&Max
Else
Response.Write"该数组没有重复值"
End IF
%>

int[] strs = { 8, 5, 8, 4, 9, 7, 7, 7, 7, 7, 7, 7, 7, 4, 4, 8, 6, 8, 5, 9, 4, 4, 7, 4, 6, 7, 0 };

int max = 0; //最大长度
int max_num = 0; //最大长度的数

for (int i = 0; i < strs.Length; i++)
{
int c = 0;

for (i