Question

ОЧЕНЬ-ОЧЕНЬ СРОЧНО , ПОМОГИТЕ, УМОЛЯЮ
Вводится одномерный массив размерностью 40 для обработки данной программой. Что делает программа?

Program pr;
Var a: array [1..40] of integer;

i,p,n: integer;

begin

for i:=1 to 40 do

readln (a [i] ) ;

for i:=1 to 40 div 2 do

begin

p:=a[i] ;

a[i]:=a[n-i+1] ;

a[n-i+1]:=p;

end;

for i:=1 to n do

writeln (a [i] ) ;

end.​

Answer 1

Ответ:

Меняет местами элементы массива, первый становится последним, последний первым, второй предпоследним а предпоследний вторым и т.д. после этого выводит новый массив, только там вверху нужно задать n:=40

Объяснение: