Дан текстовый файл, содержащий целые числа. Найти количество чисел в файле и их сумму.

Var
  f: Text;
  n, s, e: integer;

begin
  n := 0;
  s := 0;
  Assign(f, input.txt);
  Reset(f);
  while not Eof(f) do
  begin
    readln(f,e);
    n := n + 1;
    s := s + e
  end;
  Close(f);
  writeln(В файле , n, чисел; их сумма равна , s)
end.

Тестовое решение:

В файле 10 чисел; их сумма равна 213

Содержимое файла input.txt:
24
37
14
-6
42
58
3
14
0
27

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.