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

[Happiness♥]

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

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

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

[DarkWishmaster]

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

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

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

1)

var  F,G:text; n,i,a:integer;
begin
 assign(F, 'File1.TXT');
 rewrite(F);
 assign(G, 'File2.TXT');
 rewrite(G);
 readln(n);
 for i:=1 to 2*n do 
  begin
    readln(a); 
    write(F, a);
    if i>=n then write(G, a);
  end;
 close(F);
 close(G);
end.

2) Вопрос, а если таких 3 элемента? то все 3 исключить?

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