Консультация № 136529
12.05.2008, 20:08
0.00 руб.
0 1 1
Здравствуйте!
Решите пожалуйста задачу!

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

Обсуждение

Неизвестный
12.05.2008, 21:05
общий
это ответ
Здравствуйте, Аксютчев Иван Владимирович!
Программа в приложении.
Исходные данные должны быть записаны в файле "input.txt".

Удачи!

Приложение:
var f : textfile; a : integer; res : integer;begin Assign(f,‘input.txt‘); Reset(f); res := 0; while not EOF(f) do begin Read(f,a); if a < 0 then inc(res); end; WriteLn(‘Otricatelnyh chisel: ‘,res);end.
Форма ответа