27.12.2010, 15:33
|
#2 (permalink)
|
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Сообщение от анастасия№1
В файле 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.
|
|
|