Откройте файл электронной таблицы, содержащей в каждой строке пять натуральных чисел.
Определите количество строк, содержащих числа, для которой выполнены оба условия:
— все числа в строке различны;
— удвоенная сумма максимального и минимального больше суммы остальных трех чисел.
В ответе запишите только число.
Приведём решение на языке Python.
f = open('9-2.csv')
count = 0
for i in f:
s = [int(x) for x in i.split()]
if len(set(s))==5:
if 2*(max(s) + min(s)) > (sum(s)-max(s)-min(s)):
count += 1
print(count)
Ответ:15028.
Приведём решение Сергея Донец на языке PascalABC.NET.
uses XLSX;
begin
ReadXLSXAsInts('92213.xlsx').Select(n -> n.Order) // сортируем числа в каждой строке
//ReadAllLines('92213.txt').Select(n -> n.ToIntegers).Select(n -> n.Order)
//ReadAllLines('92213.csv').Select(t -> t.Replace(';', ' ')).Select(n -> n.ToIntegers).Select(n -> n.Order)
.Where(n -> n.Distinct.Count = 5) // все числа различны
.Count(n -> 2 * (n.First + n.Last) > n.Skip(1).Take(3).Sum)
.Println();//Ответ:15028.
end.