Дан файл вещественных чисел.

[dexter2145]

Дан файл вещественных чисел. Создать два новых файла, первый из которых содержит элементы исходного файла с нечетными номерами (1, 3, . . .), а второй - с четными (2, 4, . .
помогите пожалуйста решить. в паскале. заранее спасибо

[Sibedir]

Открывем файл для чтения (f)
Создаем 2 файла (f1 и f2)
Пока не достигнут конец f делаем
    Считывем число (r) из f
    Записываем r в f1
    Если не достигнут конец f делаем
        Считывем число (r) из f
        Записываем r в f2
    конец условия
конец цикла
Закрываем все файлы

[dexter2145]

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

Открывем файл для чтения (f)
Создаем 2 файла (f1 и f2)
Пока не достигнут конец f делаем
    Считывем 2 числа (r1 и r2) из f
    Записываем r1 в f1
    Записываем r2 в f2
конец цикла
Закрываем все файлы

по подробней можно?

[Sibedir]

по подробней можно?

Блин, так и думал.
С какой строкой не можете справится?

Добавлено -------------------------------------------
Изменил пост №2

[dexter2145]

правильно?

Program xxx;
uses
  crt;
var
  f1,f2,f3: file of real;
  size,i,n: byte;
  x: real;
begin
   clrscr;
   assign(f1,'name1');
   rewrite(f1);
   write('wwedite kol-wo elementow: ');
   read(n);
   writeln ('wwedite sami elementi: ');
for i:= 0 to n-1 do
  begin
     read(x);
     write(f1,x);
end;
   close(f1);
   assign(f1,'name1');
   assign(f2,'name2');
   assign(f3,'name3');
   reset(f1);   //ЧТЕНИЕ ИЗ ФАЙЛА
   rewrite(f2); //ЗАПИСЬ В ФАЙЛ
   rewrite(f3); //ЗАПИСЬ В ФАИЛ
   size:=filesize(f1);//ОПРЕДЕЛЕНИЕ РАЗМЕРА ФАИЛА
i:=0;
  write('Sodergimoe name2: ');
  repeat
       seek(f1,i);
       read(f1,x);
       write(f2,x);
       write(x:2:2,' ');
       inc(i,2);
  until i>=size;
    close(f2);
    writeln;
    write('Sodergimoe name2: ');
i:=1;
  repeat
      seek(f1,i);
      read(f1,x);
      write(f3,x);
      write(x:2:2,' ');
    inc(i,2);
  until i>=size;
   close(f3);
   close(f1);
  readkey;
end.

[Sibedir]

assign(f1,'name1');
rewrite(f1);
write('wwedite kol-wo elementow: ');
read(n);
writeln ('wwedite sami elementi: ');
for i:= 0 to n-1 do
begin
read(x);
write(f1,x);
end;
close(f1);

Вроде нормально. Создали новый файл и заполнели его числами.

Дальше что? Зачем 2 цикла?

Пока не достигнут конец f делаем

while not EOF(f1) do

P.S.: ваш вариант вроде тоже годится, но уж слишком ГРАМОЗДКИЙ

[dexter2145]

спасибо за внимание) пусть будет ГРАМОЗДКИМ_)

[Sibedir]

dexter2145, вы правы.
Помню столько случаев, когда одногрупники пытались здать программу, которую не сами написали и валились при первом же вопросе преподавателя.