На вход программы поступает последовательность - вопрос №7693204 от ник10910 19.06.2021 13:27

Question

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

ник10910 · Answer

Егэ:)var N, x, sum, maxi, i:integer;a:array [0..27] of integer;beginreadln(N);sum:=0;for i:=1 to N do beginreadln(x);while x 0 do beginsum:=sum+x mod 10;x:=x div 10;end;a[sum]:=a[sum]+1;sum:=0;end;for i:=0 to 27 doif a[i] maxi then maxi:=i;writeln(maxi);end....