• Уровень A. Напишите программу, которая находит среднее арифметическое всех чисел, записанных в файле в столбик, и выводит результат в другой файл.(пишет ошибка времени исполнения) var a, b, c: integer; d: text; begin assign(d,\'input.txt\'); reset(d); c:=0; b:=0; while not eof do begin readln(d,a); c:= c + a; b:= b + 1; end; close(d); assign (d,\'output.txt\'); rewrite(d); write(d,c/b); close(d); end.

Ответы 1

  • import re   with open('in.txt', 'r') as f_in, open('out.txt', 'w') as f_out:     items = list(map(int, re.findall(r'-?\d+', f_in.read())))     f_out.write(str(sum(items) / len(items)))

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years