Pascalabcnet дан набор из n целых положительных - вопрос №8049233 от Hyliganka0666 27.03.2021 13:09

Question

Информатика: Pascalabcnet дан набор из n целых положительных чисел. для каждого числа вычисляется сумма двух последних цифр в его десятичной записи (для однозначных чисел предпоследняя цифра считается равной нулю). необходимо определить, какая сумма при этом получается чаще всего. если таких сумм несколько, необходимо вывести наибольшую из них. напишите эффективную по времени и по памяти программу для решения этой . программа считается эффективной по времени, если при увеличении количества исходных чисел n в

Hyliganka0666 · Answer

Var a:array[1..18] of integer;s,i,x,n:integer;beginfor i:=1 to 18 do a[i]:=0;readln(n);for i:=1 to n do beginreadln(x);s:=x mod 10;x:=x div 10;s:=(x mod 10)+s;a[s]:=a[s]+1;end;s:=1;for i:=2 to 18 do if a[i] =a[s] then s:=i;writeln(s);end....