В текстовом файле chisla.txt посчитать количество отрицательных чисел.
В текстовом файле chisla.txt посчитать количество отрицательных чисел.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы