ПОМОГИТЕ, ПОЖАЛУЙСТА!Напишите программу, которая переставляет элементы массива в оборотном
ПОМОГИТЕ, ПОЖАЛУЙСТА!
Напишите программку, которая переставляет элементы массива в обратном порядке без использования дополнительного массива. Программа должна считать массив, поменять порядок его частей, потом вывести итог (просто вывести элементы массива в оборотном порядке недостаточно!)
Входные данные
Поначалу задано число N количество частей в массиве (1N35). Дальше через пробел записаны N чисел элементы массива. Массив состоит из целых чисел.
Выходные данные
Нужно вывести массив, приобретенный после перестановки частей.
Образцы
входные данные
6
4 5 3 4 2 3
выходные данные
3 2 4 3 5 4
Анатолий Флоре
Какой язык?
Viktor Drygval
Так есть же Reverse
Ponovich Egor
Он сходу все переставит
Нина
это паскаль
2 ответа
Valerka
1. Современное решение
// PascalABC.NET 3.2, сборка 1431 от 28.04.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger(ReadlnInteger('n='));;
Reverse(a); a.Println
end.
Пример
n= 6
4 5 3 4 2 3
3 2 4 3 5 4
2. Школьный вариант в стиле ТурбоПаскаль 1983г.
const
nn=35;
var
i,n,t:integer;
a:array[1..nn] of integer;
begin
Readln(n);
for i:=1 to n do Read(a[i]);
for i:=1 to n div 2 do begin
t:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=t
end;
for i :=1 to n do
Write(a[i],' ');
Writeln
end.
// PascalABC.NET 3.2, сборка 1431 от 28.04.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger(ReadlnInteger('n='));;
Reverse(a); a.Println
end.
Пример
n= 6
4 5 3 4 2 3
3 2 4 3 5 4
2. Школьный вариант в стиле ТурбоПаскаль 1983г.
const
nn=35;
var
i,n,t:integer;
a:array[1..nn] of integer;
begin
Readln(n);
for i:=1 to n do Read(a[i]);
for i:=1 to n div 2 do begin
t:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=t
end;
for i :=1 to n do
Write(a[i],' ');
Writeln
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
Облако тегов