Вопрос по информатике:
Напишите программу для выполнения циклического сдвига массива вправо на 3 элемент.В PascalABC. Заранее благодарю.
Пожаловаться
- 10.03.2015 14:49
- Информатика
- remove_red_eye 15066
- thumb_up 44
Ответы и объяснения 1
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-50,50); a.Println;
a:=(a[n-3:]+a[:n-3]).ToArray; a.Println
end.
Пример
n= 15
1 -10 49 1 28 18 -44 -46 -23 36 36 -49 -46 -49 -21
-46 -49 -21 1 -10 49 1 28 18 -44 -46 -23 36 36 -49
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-50,50); a.Println;
a:=(a[n-3:]+a[:n-3]).ToArray; a.Println
end.
Пример
n= 15
1 -10 49 1 28 18 -44 -46 -23 36 36 -49 -46 -49 -21
-46 -49 -21 1 -10 49 1 28 18 -44 -46 -23 36 36 -49
Пожаловаться
- 11.03.2015 23:41
- thumb_up 30
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы