на файл задача пожалуйста

[Serge_Bliznykov]

Дан файл целых чисел f.

я думаю, что речь идёт о типизированных файлах:
f : file of integer;
для этих файлов никакого понятия "строк" - не предусмотрено!

чтобы прочитать число из такого файла:
Read(f, a)

и ищите по форуму по: типизированный файл

извините за тормознутость, пока была открыта страница, уже всё ответили...

[eoln]

Var
 g,f: file of integer;
 s:string;
 i,n,a,s1,s2,s3:integer;
begin
 s:='fff.txt';
 assign(f,s);
 rewrite(f);
 s:='ggg.txt';
 assign(g,s);
 rewrite(g);
 readln(n);
 for i:=1 to n do
 begin
  readln(a);
  write(f,a);
 end;
 close(f);
 reset(f);
 for i:=1 to n div 2 do
 begin
  read(f,s1);
  read(f,s2);
  s3:=s1+s2;
  write(g,s3);
 end;
 close(g);
 reset(g);
 for i:=1 to n div 2 do begin
  read(g,a);
  writeln(a);
 end;
 close(f);
 close(g);
 readln;
end.

[Neznau]

Спасибо большое, все работает. вот только не понятно как оно выводит. я ввожу например 4 3 6 1 3, а паскаль мне выводит 9 3.
Хотя должен 7 7 ???

[eoln]

Вообщето выводит 9 4
Сначала вводи число цифр 4 а затем сами цифры 3 6 1 3
Перед 13-ой строкой поставь write('input n = '); и всё станет ясно