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.