Question

ОЧЕНЬ-ОЧЕНЬ СРОЧНО , ПОМОГИТЕ, УМОЛЯЮ Вводится одномерный массив размерностью 40 для обработки данной программой. Что делает программа?Program pr;Var a: array [1..40] of integer;i,p,n: integer;beginfor i:=1 to 40 doreadln (a [i] ) ;for i:=1 to 40 div 2 dobeginp:=a[i] ;a[i]:=a[n-i+1] ;a[n-i+1]:=p;end;for i:=1 to n dowriteln (a [i] ) ;end.​

Answer 1

Відповідь:

Меняет местами первый и последний элемент а потом выводит масив на экран

Пояснення:

Answer 2

Данная программа считывает элементы одномерного массива размерностью 40 с клавиатуры. Затем, с помощью цикла, происходит перестановка элементов массива таким образом, чтобы первый элемент стал последним, второй - предпоследним и так далее до середины массива.

Для этого используется переменная p, в которую записывается значение текущего элемента массива a[i], затем текущий элемент a[i] заменяется на элемент, симметричный ему относительно середины массива a[n-i+1], а элемент a[n-i+1] заменяется на значение переменной p.

После выполнения всех перестановок, программа выводит элементы массива на экран.