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

Question

Информатика

Агафия

10 марта, 02:22

В текстовом файле 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.