Цитата:
Сообщение от CTPEJlOK
4) сохранение массива в текстовый файл;
|
procedure mastofile(arr: mas; fd: file of integer);
var i: integer;
begin
rewrite(fd);
for i:=0 to length(arr)-1 do
write(fd, arr[i]);
close(fd)
end;
Цитата:
Сообщение от CTPEJlOK
5) чтение массива из текстового файла;
|
procedure filetomas(fd: file of integer);
var i: integer; arr: mas;
begin
reset(fd);
setlength(arr, filesize(fd));
for i:=0 to high(arr) do
read(fd, arr[i]);
end;