Pascalabc вводится последовательность целых чисел, не превосходящих по модулю 10000. ноль - признак конца. вывести, сколько раз в этой последовательности встречается максимальный элемент.

214

429

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

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

lizochkaegorov

Информатика

4,8(59 оценок)

//pascalabc.net //версия 3.3, сборка 1634 (14.02.2018) function maxcnt(self: sequence of integer): integer; extensionmethod; begin var (max,k): =(integer.minvalue,1); foreach var v in self do if v> max then (max,k): =(v,1) else if v=max then k+=1; result: =k end; begin readseqintegerwhile(t-> t< > 0).maxcnt.println; end. пример: 12 15 61 8 7 8 20 20 5 51 54 61 30 61 0 78 94 94 94 94 94 3