19 lines
373 B
ObjectPascal
19 lines
373 B
ObjectPascal
var
|
|
a: array[1..30] of integer;
|
|
i, k, ki, kmax, kimax: integer;
|
|
|
|
begin
|
|
for i := 1 to 30 do begin a[i] := random(10);write(a[i], ' '); end;
|
|
writeln();
|
|
kmax := 0;
|
|
kimax := 0;
|
|
for i := 1 to 29 do
|
|
begin
|
|
if a[i] = a[i + 1] then
|
|
k := k + 1
|
|
else k := 1;
|
|
if k > kmax then kmax := k;
|
|
end;
|
|
writeln(kimax, ':= ', kmax);
|
|
end.
|