Получить сумму элементов соответствующей строки файла - PascalABC.NET
Формулировка задачи:
Срочно нужно написать программу к утру, а я уставший, голова совсем не варит. Не могли бы вы помочь, если не трудно?
Условие задачи:
Во входном файле 20 строк
Длина каждой строки не превышает 255 символов.
В каждой строке некоторое количество целых чисел, записанных через пробелы и/или запятые. Каждое из чисел укладывается в integer.
Сформировать массив из 20 элементов, в каждом из которых требуется получить сумму элементов соответствующей строки.
Пример одной из строк входного файла
-231 ,4,87 -23 , 5
Язык: PascalABC.NET
Заранее всем спасибо.
Решение задачи: «Получить сумму элементов соответствующей строки файла»
textual
Листинг программы
begin
var arr :=
&File.ReadAllLines('thread1577363.txt').Select((s : string) ->
s.Split(' ,'.ToCharArray(), System.StringSplitOptions.RemoveEmptyEntries).Select(StrToInt).Sum()).ToArray();
arr.Writeln(NewLine); // это только для проверки полученного массива
end.
Объяснение кода листинга программы
arr- массив, в который будет сохранена сумма элементовFile.ReadAllLines('thread1577363.txt')- считывание всех строк из файла 'thread1577363.txt's.Split(' ,'.ToCharArray(), System.StringSplitOptions.RemoveEmptyEntries)- разделение строки на элементы по запятой, удаление пустых элементовStrToInt- преобразование элементов в числаs.Split(' ,'.ToCharArray(), System.StringSplitOptions.RemoveEmptyEntries).Select(StrToInt).Sum()- вычисление суммы элементов строкиToArray()- преобразование последовательности в массивarr.Writeln(NewLine)- запись суммы элементов массива в файл 'thread1577363.txt' (возможно, это действие только для проверки полученного массива)