Сформировать новый файл, который будет состоять из сумм компонентов - Pascal

Формулировка задачи:

Задан файл из N целых компонентов. Сформировать новый файл, который будет состоять из сумм компонентов a1+aN, a2+aN-1, a3+aN-2, ..., ak+am для k<=m. Выдать содержимое полученного файла на экран.

Код к задаче: «Сформировать новый файл, который будет состоять из сумм компонентов - Pascal»

textual
const
  n = 10;
 
var
  t, x, i: integer;
  f, g: file of integer;
 
begin
  randomize;
  assign(f, 'f.dat');
  rewrite(f);
  writeln('Исходный файл: ');
  for i := 1 to n do
  begin
    x := random(10);
    write(x, ' ');
    write(f, x);
  end;
  writeln;
  reset(f);
  assign(g, 'g.dat');
  rewrite(g);
  writeln('Новый файл: ');  
  for i := 0 to filesize(f) div 2 - 1 do
  begin
    seek(f, n - i - 1);
    read(f, x);
    seek(f, i);
    read(f, t);
    write(g, x + t);
    write(x + t, ' ')
  end;
  close(f);
  close(g);
end.

10   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы