Кто играть в стандофф по дс лобавте меня в др

Question

Информатика: Кто играть в стандофф по дс лобавте меня в др

1KoTObOpMoT1 · Accepted Answer

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

//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.

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

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

MOGZ ответил