Дан массив из 20 элементов, заполненный случайным образом. Вывести его на экран, после этого изменить массив, чтобы значение последнего элемента стало значением первого (обратный порядок) пример: 1 2 3 4 5 и стало 5 4 3 2 1 (Паскаль)

Ar

arr: array[1 ... 20] of integer;

i, tmp:integer;

begin

for i : = 1 to 20 do

begin

arr[i] : = random (100) ;

end;

for i : = 1 to 20 do write (arr[i], ' ') ;

for i : = 10 downto 0 do

begin

tmp : = arr[i+1];

arr[i+1] : = arr[20-i];

arr[20-i] : = tmp;

end;

writeln;

for i : = 1 to 20 do write (arr[i], ' ') ;

end.

Вот код. Ещё раз выводит значения массива. В условии это явно не указано, но всё же.