// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadLines('Text.txt').ToArray;
var k:=s.Count;
var n:=s.JoinIntoString.Matches('\b\d+\b').Count;
Writeln('Строк: ',k,', числовых элементов: ',n)
end.
Пример
Строк: 4, числовых элементов: 14
Скачать вложение Текст (TXT)