Предмет: Информатика,
автор: helpmehelph
Перестановка одномерного массива в обратном порядке. Значение длины массива вводиться с клавиатуры .Массив печать до и после перестановки .штук 9 формат 8
Ответы
Автор ответа:
0
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
a:=a.Reverse.ToArray; a.Println
end.
Пример
n= 13
1 80 -54 36 84 -43 -88 43 36 9 -14 -19 -38
-38 -19 -14 9 36 43 -88 -43 84 36 -54 80 1
Вариант для вывода элементов массива в 8 позициях:
begin
var a:=ArrRandom(ReadInteger('n='),-99,99);
a.Select(t->Format('{0,8}',t)).Println('');
a:=a.Reverse.ToArray;
a.Select(t->Format('{0,8}',t)).Println('')
end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
a:=a.Reverse.ToArray; a.Println
end.
Пример
n= 13
1 80 -54 36 84 -43 -88 43 36 9 -14 -19 -38
-38 -19 -14 9 36 43 -88 -43 84 36 -54 80 1
Вариант для вывода элементов массива в 8 позициях:
begin
var a:=ArrRandom(ReadInteger('n='),-99,99);
a.Select(t->Format('{0,8}',t)).Println('');
a:=a.Reverse.ToArray;
a.Select(t->Format('{0,8}',t)).Println('')
end.
Похожие вопросы
Предмет: Математика,
автор: cdhmf6h97h
Предмет: Литература,
автор: ivannemtin809
Предмет: Биология,
автор: lbzha
Предмет: Математика,
автор: миша2284
Предмет: Математика,
автор: harper2882