Задача по теме "файлы"

[puporev]

В первый раз невнимательно посмотрел условие и написал как у Виталия., т.е складывал элементы первого и (k div 2+1)-го числа, второго и (k div 2+2)-го числа и так далее. А надо первого и (k div 2)-го числа, второго и (k div 2+1)-го числа, третьего и (k div 2+2)-го числа и так далее. Это поправил, а также все причуды с текстовыми файлами.
Посмотри, может так пойдет.

uses crt;
var f,g:text;
    k,i,s:integer;
    a:integer;
    c: array[1..100] of integer;
begin
clrscr;
assign(f,'file1.txt');
rewrite(f);
assign(g,'file2.txt');
rewrite(g);
write('Vvedite kolichestvo chisel k=');
readln(k);
for i:=1 to k do
  begin
    readln(a);
    write(f,a,' ');
   end;
reset(f);
clrscr;
Writeln('Sozdannyj fail F:');
i:=0;
while not eof(f) and(i<k) do
  begin
   i:=i+1;
   read(f,c[i]);
   write(c[i],' ');
  end;
writeln;
s:=0;
for i:=1 to k div 2 do
   begin
     s:=c[i]+c[k div 2+i-1];
     write(g,s,' ');
   end;
reset(g);
Writeln('Fail rezultta G:');
i:=0;
while not eof(f)and(i<k div 2) do
  begin
    i:=i+1;
    read(g,s);
    write(s,' ');
  end;
close(f);
close(g);
readln
end.

[sverhuVniz]

for i:=0 to k-1 do



i:=1!!!!!!!!!!!!!!!!!!!!!!!!!!!

[Aleo13]

Ребята, большое спасибо! Не знаю что бы я без вас делал. Когда всё написано - всё понятно, а когда приходится писать самому - понимаю, что я полный дурак))) Вот чуть-чуть подправил, вроде делает то, что надо:

uses crt;
var f,g:text;
    k,i,s:integer;
    a:integer;
    c: array[1..100] of integer;
begin
clrscr;
assign(f,'file1.txt');
rewrite(f);
assign(g,'file2.txt');
rewrite(g);
write('Vvedite kolichestvo chisel k=');
readln(k);
for i:=1 to k do
  begin
    readln(a);
    write(f,a,' ');
   end;
reset(f);
clrscr;
Writeln('Sozdannyj fail F:');
i:=0;
while not eof(f) and(i<k) do
  begin
   i:=i+1;
   read(f,c[i]);
   write(c[i],' ');
  end;
writeln;
s:=0;
for i:=1 to k-1 do
  begin
    s:=c[i]+c[k div (1+i)];
    write(g,s,' ');
   end;
    if c[i]=0  then 
    writeln('Zapisey v faile net');
reset(g);
Writeln('Fail rezultta G:');
i:=1;
while not eof(f)and(i<k-1) do
  begin
    i:=i+1;
    read(g,s);
    write(s,' ');
  end;
   if c[i]=0  then 
  writeln('Zapisey v faile net');
close(f);
close(g);
readln
end.

[puporev]

i:=1!!!!!!!!!!!!!!!!!!!!!!!!!!!

Прежде чем свой "ум" показывать, прогони программу и убедись, что в ней ошибка, а со своими дурацкими восклицательными знаками у себя дома тренируйся.