позиционная систе́ма счисле́ния (позиционная нумерация) — система счисления, в которой значение каждого числового знака (цифры) в записи числа зависит от его позиции (разряда).изобретение позиционной нумерации, основанной на поместном значении цифр, приписывается шумерам и вавилонянам. в более поздний период такая нумерация была развита индусами и имела неоценимые последствия в цивилизации. к числу таких систем относится десятичная система счисления, возникновение которой связано со счётом на пальцах. в средневековой европе она появилась через итальянских купцов, в свою очередь заимствовавших её у жителей средней азии.
//Версия 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