Задачка на файлы

[kempers]

Ребят, не получается решить задачку на файлы.

Создать файл f1 из целых чисел. Записать в файл f2 наибольшее из первых 5 компонент, затем из следующих 5 и т.д. Последняя группа может содержать меньше десяти компонент.

Спасиб за ранее =)

[puporev]

Последняя группа может содержать меньше десяти компонент.

А что это все по 5, а в конце 10?

[kempers]

Сообщение от puporev

А что это все по 5, а в конце 10?

Вот я этого и не понимаю, хотел у вас умных людей спросить =)

[puporev]

Ну это вероятней всего ошибка в условии, а остальное понимаешь?

[kempers]

Ну еще не знаю, каким образом находить наибольшее в 5 компанентах сразу...Мне не понятно как будет выглядеть это цикл

[puporev]

Ну приерно так:

while not eof(f1) do
  begin
    max:=-maxint-1;
    for i:=1 to 5 do
      begin
        read(f1,a);
        if a>max ten max:=a;
      end;
   write(f2,max);
  end;

[kempers]

Спасиб =)

Последнее условие верно....ничего не понимаю((

[Stilet]

Последнее условие верно

Не вижу препятствий:

assign(f1,'первый файл');reset(f1);
assign(f2,'второй файл');rewrite(f2);
while not eof(f1) do begin
  i:=1; while (i<=5)and(not eof(f1)) do begin
   read(f1,a); if a>max then max:=a;
   inc(i);
  end;
  write(f2,max);
end;

Типы сам поставиш.

[kempers]

О_о...вот....спасибо =)