Запишите, что получится в результате работы данной программы PROGRAM PRIMER; VAR X,Y:REAL; BEGIN FOR X:=1 TO 11 DO BEGIN Y:=X*X*X; WRITE (‘ОТВЕТ ЗАДАЧИ’), Y; X:=X+1; END; END.
Подумайте чуть, ведь все просто. Есть массив, у него гдето есть середина, или точка симметрии. Она находится как (n div 2). Если массив четной длины, то он делится на 2 равные части, если нечетный - в середине остается один элемент, который ни с кем менять не надо. Сейчас смотрим элементы первой половины for i:=1 to n div 2 запоминаем их x:=a[i]; присваиваем им значения симметричных им элементов с конца a[i]:=a[n-i+1]; например при n=10 a[1]:=a[10-1+1]; А элементам в конце присваиваем значения запомненных первых элементов a[n-i+1]:=x; Все, поменяли.
Подумайте чуть, ведь все просто. Есть массив, у него гдето есть середина, или точка симметрии. Она находится как (n div 2). Если массив четной длины, то он делится на 2 равные части, если нечетный - в середине остается один элемент, который ни с кем менять не надо. Сейчас смотрим элементы первой половины for i:=1 to n div 2 запоминаем их x:=a[i]; присваиваем им значения симметричных им элементов с конца a[i]:=a[n-i+1]; например при n=10 a[1]:=a[10-1+1]; А элементам в конце присваиваем значения запомненных первых элементов a[n-i+1]:=x; Все, поменяли.
Выведет 11 действительных чисел, это будет Y (который равен x*x*x)
В консоле выведет:
"Отв. задачи" 1
"Отв. задачи" 8
"Отв. задачи" 27
"Отв. задачи" 4*4*4
...
и в конце
"Отв. задачи" 11*11*11