Исправить ошибку в коде 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.

103

182

Посмотреть ответы 2

Ответы на вопрос:

толя151

Информатика

4,8(40 оценок)

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

bastovayasofia

Информатика

4,8(55 оценок)

зоркий глаз кожаный мешочек абрикос

граф сундучок банан

стрелец ракушка лимон

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.