В текстовом файле chisla. txt посчитать количество отрицательных чисел.

Question

Информатика

Миля

12 апреля, 11:38

В текстовом файле chisla. txt посчитать количество отрицательных чисел.

+1

Ответы (1)

Знаете ответ?

Октябрина · Answer 1

Var

t : text;

a, k : integer;

begin

k : = 0;

assign (t,' chisla. txt') ;

reset (t) ;

while Not Eof (t) do

begin

read (t, a) ;

if a < 0 then

k : = k + 1;

end;

close (t) ;

writeln (k) ;

end.