Помогите пожалуйста, Текстовые файлы Опции

[Happiness♥]

1) Записать в файл 2n целых чисел. Переписать в другой файл последние n элементов исходного файла.

2)Записать в файл n целых чисел. Найти максимальное четное число файла. Записать в новый файл элементы исходного файла, исключая найденный элемент

3)Перезаписать файл f целыми 3n числами, полученными с помощью генератора случайных чисел. Переписать элементы в этом же файле так, чтобы в каждой тройке подряд идущих элементов первый и второй элемент поменялись местами: первый со вторым, четвертый с пятым, седьмой с восьмым и т.д.

[IUnknown]

DarkWishmaster, неправда...

Переписать в другой файл последние n элементов исходного файла.

делается по-другому... Ты в другой файл записываешь ТЕ ЖЕ элементы, а надо читать из первого и писать во второй.

[DarkWishmaster]

DarkWishmaster, неправда...
делается по-другому... Ты в другой файл записываешь ТЕ ЖЕ элементы, а надо читать из первого и писать во второй.

мы же пишем в один файл элементы, потом из этого файла последнее n элементов, так те же получаются.

  for i:=1 to 2*n do 
  begin
    readln(a); 
    write(F, a,' ');
  end;
reset(F);
assign(g, 'File2.txt');
i:=0; 
while i<=n  do
 begin 
  inc(i); 
  read(F, a);
  if (i>=n) then write(G, a,' ');
 end;

2)

var  F,G:text; n,i,a,max:integer;
begin
 assign(F, 'File1.TXT');
 rewrite(F);
 readln(n);
 for i:=1 to n do
   begin
    readln(a);
    write(F, a,' ')
  end;
reset(F);
  for i:=1 to n do    
   begin
     read(F, a);
     if i=1 then max:=a;
     if not(odd(a)) and (a>max) then max:=a;
   end;
reset(F);
assign(G, 'File2.TXT');
rewrite(G);
 for i:=1 to n do
  begin
    read(F, a);
    if a<>max then
    write(G, a,' ');
  end;
close(G);
close(F);
end.

Сообщение отредактировано: DarkWishmaster - 22.06.2011 17:43