Предмет: Информатика,
автор: anjelika1232
Массив имеет четное число элементов.Заполнить массив случайными числами и выполнить реверс отдельно в первой половине и во второй половине.
Пример:
Массив:
123 4 5 6
Результат:
321 6 5 4
Ответы
Автор ответа:
0
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var n:=ReadInteger('n=');
if n.IsOdd then Inc(n);
var a:=ArrRandom(n,10,99); a.Println;
a:=a[:n div 2].Reverse.Concat(a[n div 2:].Reverse).ToArray;
a.Println
end.
Тестовое решение
n= 10
97 15 37 76 63 91 73 47 40 39
63 76 37 15 97 39 40 47 73 91
begin
var n:=ReadInteger('n=');
if n.IsOdd then Inc(n);
var a:=ArrRandom(n,10,99); a.Println;
a:=a[:n div 2].Reverse.Concat(a[n div 2:].Reverse).ToArray;
a.Println
end.
Тестовое решение
n= 10
97 15 37 76 63 91 73 47 40 39
63 76 37 15 97 39 40 47 73 91
Похожие вопросы
Предмет: Информатика,
автор: surd1234
Предмет: Информатика,
автор: asogo
Предмет: Французский язык,
автор: xhvjgff
Предмет: История,
автор: пакахонда
Предмет: Математика,
автор: skk2006ksenya