Удалить из файла первую половину элементов.

@Mariella · Регистрация: 27.04.2016

Author24 — интернет-сервис помощи студентам

Дан файл целых чисел,содержащий четное количество элементов.Удалить из данного файла первую половину элементов.

@Puporev · 20.12.2016, 19:00

Pascal

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

@Mariella · 20.12.2016, 19:28 **[ТС]**

Спасибо!!!!!!

@Mariella 0 / 0 / 0 Регистрация: 27.04.2016 Сообщений: 38
		1
	Удалить из файла первую половину элементов. 20.12.2016, 18:44. Показов 2311. Ответов 2 Метки нет (Все метки) Дан файл целых чисел,содержащий четное количество элементов.Удалить из данного файла первую половину элементов. 0

@Mariella 0 / 0 / 0 Регистрация: 27.04.2016 Сообщений: 38
	20.12.2016, 19:28 [ТС]	3
	Спасибо!!!!!! 0

Удалить из файла первую половину элементов.

Решение