Процедуры и функции обработки файлов - Turbo Pascal

Формулировка задачи:

Сформировать файл последовательности 15 чисел, в котором каждый i-й компонент определяется по формуле: определить количество отрицательных значение, содержащихся в сформированном файле.

Решение задачи: «Процедуры и функции обработки файлов»

Листинг программы

write(f,' ',y);

Объяснение кода листинга программы

Открывается файл f для записи
В цикле записывается в файл значение переменной y, после каждого значения записывается пробел
Закрывается файл f
Переменная y не используется в дальнейшем и может быть удалена