ПОМОГИТЕ, ПОЖАЛУЙСТА!
Напишите программу, которая переставляет элементы массива в обратном порядке без использования дополнительного массива. Программа должна считать массив, поменять порядок его элементов, затем вывести результат (просто вывести элементы массива в обратном порядке – недостаточно!)
Входные данные
Сначала задано число N — количество элементов в массиве (1N35). Далее через пробел записаны N чисел — элементы массива. Массив состоит из целых чисел.
Выходные данные
Необходимо вывести массив, полученный после перестановки элементов.
Примеры
входные данные
6
4 5 3 4 2 3
выходные данные
3 2 4 3 5 4
Ответы
Ответ дал:
0
Программа на скрине! Надеюсь помог!
Приложения:
Ответ дал:
0
Да... В ABC.NET писать, как в Турбопаскаль - это сила!
Ответ дал:
0
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.
Приложения:
Вас заинтересует
1 год назад
5 лет назад
8 лет назад
8 лет назад
9 лет назад