Текстовый файл «test.txt» состоит не более чем из 10^6

символов X, Y и Z.

Напишите программу, которая определяет и выводит максимальное количество идущих

подряд символов, среди которых каждые два соседних совпадают.

201

458

Посмотреть ответы 1

Ответы на вопрос:

Zagyart

Информатика

4,5(80 оценок)

Program max_element_massiva ; var i, n, max : integer ; a : array [1..100] of integer; begin writeln('введите количество элементов массива') ; readln(n) ; randomize; for i : = 1 to n do begin a[i] : = random(100); write(a[i]); end; max : = a[1]; for i : = 2 to n do if a[i]> max then max : = a[i]; writeln('максимальный элемент массива = ',max) ; readln ; end.