zadach9.BAS

{* Задача9 *}

REM basic

' Cформировать массив Y(1)=X(1)+X(N), Y(2)=X(2)+X(N-1), Y(3)=X(3)+ X(N-2) и.т.д (N – четное);


10 INPUT N 
20 Dim X(N), Y(N/2) 
30 For I=1 To N 
40 INPUT X(I) 
60 Next I 
70 For I=1 To N/2 
80 Y(I)=X(I)+X(N-I+1) 
90 PRINT Y(I) 
100 Next I 
110 End