Составляющие строки

[V@mpir]

Здравствуйте! Дан текстовый файл, в нем строка приблизительного вида
(10 4 4 4 4 4 4 4 4 4 4) необходимо найти сумму всех чисел за исключением первого в данном случаи 40 и вычесть из этой суммы (первое число-1) то есть в данном случаи получится 31. Прошу помощи!

[Usov]

открой текстовый файл например в TStringList и раздели строку на составляющие по пробелам, и запиши значения в массив. а дальше крути массивом как хочешь.

[V@mpir]

Приложение консольное))

[Arigato]

Сообщение от V@mpir

(10 4 4 4 4 4 4 4 4 4 4) необходимо найти сумму всех чисел за исключением первого в данном случаи 40 и вычесть из этой суммы первое число и еще 1 то есть в данном случаи получится 31.

Или я чего не понял, получаем 40 - 10 - 1 = 29. Короче, вы что-то сильно напутали в задании.
А, вообще, можете открывать файл и читать при помощи Read.
Далее, первое число записываете в переменную Sum со знаком "-", остальные прибавляете.

[V@mpir]

Да, прошу прощение сейчас исправлю, строка может быть и такого вида 3 2 3 4, в это случаи буде необходимо сложить 2+3+4 и вычесть (3-1) получим 7. То есть необходимо складывать все числа кроме первого и вычитать из них разность первого числа и единицы.

На счет прочих компонентов, в задаче должны быть использованы лишь компоненты доступные в Pascal, не каких мемо, стринглист и тд.

[Usov]

Сообщение от V@mpir

Приложение консольное))

а какая разница?

[Arigato]

Ещё раз идея решения: читаем из файла числа командой Read до достижения конца файла.
Первое число записываем в переменную Sum со знаком "-" и добавляем к нему 1.
Все последующие числа прибавляем к Sum.
После окончания обработки файла, выводи Sum на экран.

[V@mpir]

Можешь запостить код? Просто нет идей как реализовать то, что ты сказал, хотя логика твоя понятна. Основная сложность в том, что всё записано через пробел, ваше решение легко реализуется, если каждое число записано с новой строки, здесь же не так.

[Arigato]

Команда Read прекрасно будет читать числа через пробелы. С новой строки читает команда ReadLn.

[V@mpir]

var i:textfile;
a,q,z,l:integer;
begin
AssignFile(ip,'ip.txt');
reset(ip);
read(ip,a);
l:=-a+1;
while not eof(ip) do
read(ip,q);
z:=l+q;
writeln(l);
readln;

Выходит так, что q=0,