Регистрация
Lisica99
14.01.2022 10:26
Информатика
Есть ответ 👍

Информатика, решите карточку

206
396
Посмотреть ответы 1

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

polinakuznechov
polinakuznechov
4,5(26 оценок)
Var f: file of integer;       a,i,k,n: integer; begin randomize; assign(f,'file'); rewrite(f); repeat write('четное количество элементов: '); readln(n); until(n> 1)  and  (n mod 2=0); for i: =1 to n do   begin    a: =random(100);     write(f,a);   end; writeln('содержание исходного файла: '); reset(f); while not eof(f) do   begin    read(f,a);   write(a,' ');   end; close(f); writeln; reset(f); seek(f,filesize(f)div 2); truncate(f); writeln('содержание измененного файла: '); reset(f); while not eof(f) do   begin   read(f,a);     write(a,' ');   end; close(f); readln end.

Популярно: Информатика