Напишите программу, которая осуществляет ввод 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. |