Технический форум - Паскаль. Задача о последовательности.

Цитата:

Сообщение от анастасия№1 (Сообщение 435246)

В файле 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.