Дан массив А, состоящий из 6 элементов. Вывести элементы массива

1) просто выводим элементы наооборотprogram gt; var a: array[1… 6]of longint; n,i: integer; beginread (n); for i: =1 to n dobeginread (a[i]); end; for i: =6 downto 1 dobeginwrite (a[i],'); end; end.2) добавляем дополнительный массив bprogram gt; var a,b: array[1… 6]of longint; n,k,i: integer; beginread (n); k: =7; for i: =1 to n dobeginread (a[i]); k: =k-1; b[k]: =a[i]; end; for i: =1 to 6 dobeginwrite (b[i],'); end; end.3) Изменяем элементы массива без дополнительных элементовProgram z10; VAR p, i: Integer; x: Array [1… 6] of integer; BeginFor i: =1 to 3 Do beginp: =a[i]; a[i]: =a[6-i+1]; a[6-i+1]: =p; end; for i: =1 to 6 dobeginwrite (a[i],'); end; end.