Напиши массив на языке Pascal. В исходном массиве самый большой элемент переносит в самый конец списка.

Конечно! Вот пример кода на языке Pascal, который реализует задачу переноса самого большого элемента из исходного массива в конец списка: ``` program MoveLargestToEnd; const n = 5; // Размер массива var arr: array[1..n] of Integer; // Объявление массива i, maxElement, maxIndex: Integer; begin // Ввод элементов массива writeln('Введите ', n, ' элементов массива:'); for i := 1 to n do begin readln(arr[i]); end; // Находим самый большой элемент и его индекс maxElement := arr[1]; maxIndex := 1; for i := 2 to n do begin if arr[i] > maxElement then begin maxElement := arr[i]; maxIndex := i; end; end; // Переносим самый большой элемент в конец массива if maxIndex <> n then begin arr[maxIndex] := arr[n]; arr[n] := maxElement; end; // Вывод измененного массива writeln('Массив после переноса элемента в конец:'); for i := 1 to n do begin write(arr[i], ' '); end; end. ``` Этот код позволяет ввести массив, найти самый большой элемент, и переместить его в конец списка.