Untitled

mail@pastecode.io avatar
unknown
plain_text
a month ago
1.1 kB
1
Indexable
Never
program LongestSequence;

var
  arr: array[1..10] of integer;
  i, current, maxCount, currentCount: integer;

begin
  // Заполнение массива случайными числами в интервале [10, 12]
  Randomize;
  for i := 1 to 10 do
  begin
    arr[i] := Random(3) + 10; // генерация случайного числа 10, 11 или 12
    write(arr[i], ' ');
  end;

  // Нахождение длины самой длинной последовательности стоящих рядом одинаковых элементов
  maxCount := 1;
  currentCount := 1;
  current := arr[1];
  for i := 2 to 10 do
  begin
    if arr[i] = current then
    begin
      currentCount := currentCount + 1;
      if currentCount > maxCount then
        maxCount := currentCount;
    end
    else
    begin
      current := arr[i];
      currentCount := 1;
    end;
  end;
  
  writeln;
  writeln('Длина самой длинной последовательности стоящих рядом одинаковых элементов: ', maxCount);
end.
Leave a Comment