Паскаль. Задача о последовательности.

[анастасия№1]

Паскаль. Задача о последовательности.

В файле 1.pas дана последовательность a1,a2,...,a4n. Записать в другой файл последовательность 2n элементов, составленную из элементов исходной по следующему правилу: a2n+a4n,a2n-1+a4n-1,...,a1+a2n+1.

 

[Vladimir_S]

В файле 1.pas дана последовательность a1,a2,...,a4n. Записать в другой файл последовательность 2n элементов, составленную из элементов исходной по следующему правилу: a2n+a4n,a2n-1+a4n-1,...,a1+a2n+1.

CONST
 N=5;
VAR
 f_inp, f_out:TEXT;
 A:Array[1..4*N] of Word;
 i:Byte;

BEGIN
 Assign(f_inp,'1.pas');
 ReWrite(f_inp);
 Randomize;
 For i:=1 to 4*N do
  Write(f_inp, Random(100),' ');
 Close(f_inp);
 ReSet(f_inp);
 Assign(f_out,'2.pas');
 ReWrite(f_out);
 For i:=1 to 4*N do
  Read(f_inp, A[i]);
 Close(f_inp);
 For i:=0 to 2*N-1 do
  Write(f_out, A[4*n-i]+A[2*n-i],' ');
 Close(f_out);
END.