Pascal ABC Дан текстовый файл t1.txt, содержащий целые числа, не превышающие 30000. Найти...

Question

Pascal ABC Дан текстовый файл t1.txt, содержащий целые числа, не превышающие 30000. Найти длину самой длинной цепочки одинаковых чисел, идущих подряд в файле t1.txt и записать эту цепочку в файл t2.txt
То есть вывести на экран длину самой длинной цепочки и записать в файл эту цепочку
Можно решить как через файлы, так и не через файлы

Answer 1

Если цепочки две, то выводится ближайшая. Пойдет?

//t1.txt должен быть в папке с программой
//Pascal
var
  f: text;
  numValue, Counts, n, c, t, i: integer;
begin
  assign(f, 't1.txt');
  reset(f);
  Counts := 0;
  c := 0;
  while not eof(f) do
    begin
      readln(f, n);
      if (c = 0) or (n = t) then
        c := c + 1
      else
        c := 1;
      t := n;
      if c > Counts then
      begin
          Counts := c;
          numValue := n
      end
    end;
  close(f);
  assign(f, 't2.txt');
  rewrite(f);
  writeln('Длина цепочки: ', Counts);
  for i := 1 to Counts do
    writeln(f, numValue);
  close(f)
end.

---

Comments

Спасибо огромное, ближайшая в смысле первая?

---

Прикрепил картинку. В t2.txt будет ряд из троек.

---

Ясно, спасибо еще раз