Minmax27. Дано целое число $$N$$ и набор из $$N$$ целых чисел, содержащий только нули и единицы. Найти номер элемента, с которого начинается самая длинная последовательность одинаковых чисел, и количество элементов в этой последовательности. Если таких последовательностей несколько, то вывести номер первой из них.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 |
program Minmax27; var N,i,Num,Numi,MaxNum,Maxi:Integer; B,B2:byte; begin B:=5; B2:=5; Num:=0; Numi:=0; MaxNum:=0; Write('N:'); Readln(N); for i:=1 to N do begin B2:=B; Write(i,' число:'); Readln(B); if B2=B then inc(Num) else begin if Num>MaxNum then begin MaxNum:=Num; Maxi:=Numi; end; Numi:=i; Num:=1; end; end; if Num>MaxNum then begin MaxNum:=Num; Maxi:=Numi; end; Writeln(Maxi,' ',MaxNum); end. |
Другие задачи из раздела Minmax можно посмотреть здесь.
Почему В и В2 = 5 изначально?
Последовательность содержит только нули и единицы. Если B будет равняться 0 или 1, то может сработать
if B2=B then inc(Num), поэтому B равняется числу отличному от 0 и 1, например 5. А B2… за компанию:)