Программа на паскале!!!Реверс массива – это перестановка элементов в обратном порядке: меняются местами первый и последний элементы, второй и предпоследний и т.д. Напишите программу, которая выполняет реверс двух половин массива по отдельности.
Входные данные
Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 0 < N ≤ 10000 и N – чётное число.
Выходные данные
Программа должна вывести в одну строчку все элементы получившегося массива, разделив их пробелами.
Примеры
Входные данные
6
1 2 3 4 5 6
Выходные данные
3 2 1 6 5 4
Программа на паскале!!!Реверс массива – это перестановка элементов в обратном порядке: меняются местами первый и последний элементы, второй и предпоследний и т.д. Напишите программу, которая выполняет реверс двух половин массива по отдельности.
Входные данные
Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 0 < N ≤ 10000 и N – чётное число.
Выходные данные
Программа должна вывести в одну строчку все элементы получившегося массива, разделив их пробелами.
Примеры
Входные данные
6
1 2 3 4 5 6
Выходные данные
3 2 1 6 5 4
Входные данные
Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 0 < N ≤ 10000 и N – чётное число.
Выходные данные
Программа должна вывести в одну строчку все элементы получившегося массива, разделив их пробелами.
Примеры
Входные данные
6
1 2 3 4 5 6
Выходные данные
3 2 1 6 5 4
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program ReverseArray;
var
N, i, tmp: integer;
arr: array of integer;
begin
readln(N);
SetLength(arr, N);
for i := 0 to N-1 do begin
read(arr[i]);
end;
for i := 0 to N div 2 - 1 do begin
tmp := arr[i];
arr[i] := arr[N div 2 - 1 - i];
arr[N div 2 - 1 - i] := tmp;
end;
for i := N div 2 to N - 1 do begin
tmp := arr[i];
arr[i] := arr[N + N div 2 - 1 - i];
arr[N + N div 2 - 1 - i] := tmp;
end;
for i := 0 to N - 1 do begin
write(arr[i], ' ');
end;
end.