Тип 17 № 37358 
Обработки числовой последовательности. Задания для подготовки
i
Решение. Сначала считаем все числа из файла в массив. Для каждой пары будем проверять, кратна ли 10 сумма элементов пары. Если сумма элементов кратна 10, будем увеличивать значения счётчика count и проверять, больше ли сумма элементов пары текущей максимальной суммы. Если сумма элементов пары больше текущей максимальной суммы, будем обновлять значение переменной maxsum.
Приведём решение задачи на языке Pascal.
var
i, j: integer;
count: longint;
maxsum: integer;
arr: array[1..10000] of integer;
f: text;
begin
assign(f,'C:\17.txt');
reset(f);
maxsum := 0;
count := 0;
for i := 1 to 10000 do readln(f, arr[i]);
for i := 1 to 10000 - 1 do
for j := i + 1 to 10000 do begin
if (arr[i] + arr[j]) mod 10 = 0 then begin
count := count + 1;
if arr[i] + arr[j] > maxsum then maxsum := arr[i] + arr[j];
end;
end;
writeln(count, ' ', maxsum);
end.
Приведём решение Николая Чуркина (Тимашевск) на языке Python.
count = m = 0
f = open('17.txt')
l = [int(i) for i in f]
for i in range(len(l) - 1):
for j in range(i + 1, len(l)):
if (l[i] + l[j]) % 10 == 0:
count += 1
m = max(m, l[i] + l[j])
print(count, m)
В результате работы данного алгоритма при вводе данных из файла ответ — 4999742 19990.
Примечание.
Путь к файлу необходимо указать согласно расположению файла на Вашем компьютере.
Приведём решение Николая Аксенова на языке Python.
from itertools import combinations
with open('17.txt', 'r') as file:
s = list(map(int, file.read().split()))
count = max_sum = 0
pairs = combinations(s, 2)
for pair in pairs:
if sum(pair) % 10 == 0:
count += 1
max_sum = max(max_sum, sum(pair))
print(count, max_sum)
Ответ: 4999742&19990
