Файл: Найти сумму чисел, предшествующих первому отрицательному числу в файле

@sonic27 · Регистрация: 19.01.2013

Author24 — интернет-сервис помощи студентам

В файл записать целые числа. Найти сумму чисел, предшествующих первому отрицательному числу в файле. Помогите, пожалуйста, разобраться. Заранее спасибо

@by Fredijkeeeee · 19.01.2013, 23:04

Оператор while, что сложного?

Добавлено через 8 минут

Pascal

S:= 0;
i:= 1;
while a[i]=>0 do begin //Складываем все числа подряд, пока они больше нуля
S:= S+a[i];
i:= i+1;
end;

Добавлено через 37 секунд
Но это кусок, остальное, думаю, сам доделаешь

@GeneAYak · 20.01.2013, 11:39

Pascal

var
f: textfile;
a, s: integer;
begin
assign(f, 'txt.txt'); reset(t);
while not eof(f)
begin
read(f,a);
if a<0 then break else s:= s+a;
end;
close(f);
write(s);
end.

полный код тебе

@sonic27 · 20.01.2013, 11:51 **[ТС]**

Спасибо, все работает!!

@sonic27 0 / 0 / 0 Регистрация: 19.01.2013 Сообщений: 5
		1
	Файл: Найти сумму чисел, предшествующих первому отрицательному числу в файле 19.01.2013, 20:32. Показов 2552. Ответов 3 Метки нет (Все метки) В файл записать целые числа. Найти сумму чисел, предшествующих первому отрицательному числу в файле. Помогите, пожалуйста, разобраться. Заранее спасибо 0

@sonic27 0 / 0 / 0 Регистрация: 19.01.2013 Сообщений: 5
	20.01.2013, 11:51 [ТС]	4
	Спасибо, все работает!! 0