Напишите программу, которая осуществляет ввод n элементов в файл, после чего выводит его содержимое.
Решение:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | program file_1; uses crt; var n, i, x: integer; f: file of integer; begin clrscr; write(‘Количество чисел > ‘); read(n); assign(f, ‘fail’); rewrite(f); for i:=1 to n do begin write(i, ‘ элемент > ‘); read(x); write(f, x); end; writeln(‘Содержимое файла:’); reset(f); for i:=1 to n do begin read(f, x); write(x, ‘ ‘); end; close(f); readkey; end. |
Я уже 3 года торгую фьючерсами на Bybit и приглашаю тебя присоединиться и получить до $30 000 бонусами плюс скидки на комиссии:
Зарегистрироваться на Bybit
Чем больше депозит – тем больше бонусов. Также моим рефералам доступны торговые боты для трейдинга по самым выгодным тарифам.