Одномерный массив.

[Вася123456709]

Нужна идея как написать программу, которая будет вычислять наибольшее количество последовательных одинаковых чисел в массиве А. Написать чтобы искало общее количество одинаковых элементов это понятно, не знаю как написать чтобы оно учитывало последовательные? ((

Program Masuv6;
var A:array[1..10] of integer;
    i, k: integer;
Begin
  for i:=1 to 10 do begin
  write('A[', i, ']=');
  readln(A[i]); end;
  k:=0; l:=0;
  for i:=1 to 10 do 
    if A[i]=0 then k:=k+1;
  write(k);
end.

Заранее благодарю за помощь!

[jvbel]

Program Masuv6;
var A:array[1..10] of integer;
    i, k, l: integer;
Begin
  for i:=1 to 10 do begin
  write('A[', i, ']=');
  readln(A[i]); end;
  k:=0; l:=0;
  for i:=2 to 10 do
    if A[i]=A[i-1] then k:=k+1
    else begin;
      if l < k then l:=k;
      k:=0;
    end;
  writeln(l+1);
end.

[Serge_Bliznykov]

jvbel, если мне внутренний голос не врёт, то ваш код содержит ошибку в алгоритме!

попробуйте ввести 10 одинаковых чисел и расскажите, что выдаст ваша программа!

[jvbel]

Ваш внутренний голос Вас не обманул
Такой вариант не обрабатывался, нужно добавить еще одно условие

Program Masuv6;
var A:array[1..10] of integer;
    i, k, l: integer;
Begin
  for i:=1 to 10 do begin
  write('A[', i, ']=');
  readln(A[i]); end;
  k:=0; l:=0;
  for i:=2 to 10 do
    if A[i]=A[i-1] then k:=k+1
    else begin;
      if l < k then l:=k;
      k:=0;
    end;
  if l < k then l:=k;
  writeln(l+1);
end.

[Serge_Bliznykov]

jvbel, согласен, так должно работать.

[Вася123456709]

Спасибо за помощ. Зделал, но по другому!