Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program task27;
- var i, n, el, sum, max_cnt, id: integer;
- a: array[1..28] of integer;
- begin
- max_cnt := 0;
- id := 0;
- read(n);
- for i := 1 to n do begin
- read(el);
- sum := 0; // Обновляем сумму при переходе к следующему элементу
- while el <> 0 do begin // Цикл для вычисления суммы цифр в переданном числе
- sum := sum + (el mod 10);
- el := el div 10;
- end;
- if (sum = 0) then // Чтобы корректно работать с элементами массива, т.к. в Pascal нумерация элементов массива начинается с 1.
- sum := 28; // Будем считать количество чисел с суммой 0 в элементе 28
- a[sum] := a[sum] + 1; // Обновляем значение для полученной суммы
- end;
- for i := 1 to 28 do begin // Находим сумму, которая встречалась чаще всего
- if max_cnt < a[i] then begin
- max_cnt := a[i];
- id := i;
- end;
- end;
- if id = 28 then
- id := 0; // Под номером 28 находится сумма 0
- writeln(id);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement