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

А вторая половина задания?

Сначала вывести, а потом изменить массив.

В диалектах Паскаля можно проще, но в условии об этом ничего не указано.

Именно потому, что ничего не сказано, можно выбирать любой диалект.

Таков местный принцип. Если автору вопроса нужна конкретная реализация языка, он ее указывает.

ar arr: array[1..20] of integer;i,tmp:integer;beginfor i := 1 to 20 dobeginarr[i] := random(100);end;for i := 1 to 20 do write(arr[i], ' ');for i := 10 downto 0 dobegintmp := 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.

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