Ответ в теме: Количество положительных и отрицательных чисел в файле Visual Prolog

      Комментарии к записи Ответ в теме: Количество положительных и отрицательных чисел в файле Visual Prolog отключены
#2933

Посмотрите тему о работе с файлами в Turbo/Visual Prolog — там есть предикат для считывания с файла списка чисел. Список можно разделить его на список положительных и отрицательных элементов, а затем сравнить длины списков, полученные предикатом length:

file_numbers_to_list(text_input_file, [], List),
divide_positive_negative_zero(List, Positive, Negative, _Zero),
length(Posilive, PositiveCount),
length(Negative, NegativeCount),
NegativeCount < PositiveCount.