Question

Исправить ошибку в коде pascal. заполнить файл f целыми числами, полученными с генератора случайных чисел. переписать их в файл g в обратном порядке. var f: file of integer; n,i,a,k,b: integer; begin randomize; assign(f,'file1'); rewrite(f); write('сколько чисел ввести в файл n='); readln(n); for i: =1 to n do begin a: =random(50); write(f,a); end; reset(f); writeln('исходный файл: '); while not eof(f) do begin read(f,a); write(a: 4); end; writeln; close(f); reset(f); for i: =0 to filesize(f) div 2 do{считаем до середины} //filesize - возвращает текущий размер файла. функция в паскале begin seek(f,i); {смотрим число в начале} read(f,a); seek(f,filesize(f)-i-1); {смотрим число в конце} // seek - перемещает текущий указатель позиции файла на определенный компонент. процедура в паскале read(f,b); seek(f,i); {с конца пишем в начало} write(f,b); seek(f,filesize(f)-i-1); {с начала пишем в конец} write(f,a); end; close(f); reset(f); writeln('преобразованный файл: '); while not eof(f) do begin read(f,a); write(a: 4); end; writeln; close(f); end.

Answer 1

Исправьте одну строку:
for i:=0 to (filesize(f) div 2)-1 do