Вход
Регистрация
Спроси здесь
Все
Биология
Информатика
Видео-ответы
Физика
Французский язык
Русский язык
Қазақ тiлi
История
Окружающий мир
География
Обществознание
Алгебра
Психология
МХК
Другие предметы
Английский язык
Українська література
Право
ОБЖ
Немецкий язык
Українська мова
Беларуская мова
Музыка
Химия
Экономика
Геометрия
Литература
Показать все предметы
Показать меньше предметов
Aly6000
11.09.2019 14:00 •
Информатика
Дан массив из 11 случайных, целых чисел, заданных на интервале [0,10]. сдвинуть элементы массива на одну позицию влево.
Показать ответ
Ответ:
Фиджиии
07.10.2020 07:35
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!
1) Циклический сдвиг
begin
var a:=ArrRandom(11,1,10); a.Println;
a:=(a[1:]+a[0]).ToArray; a.Println;
end.
Пример
4 9 9 4 7 4 5 5 2 2 9
9 9 4 7 4 5 5 2 2 9 4
2) Простой сдвиг
begin
var a:=ArrRandom(11,1,10); a.Println;
a:=(a[1:]+Arr(0)).ToArray; a.Println;
end.
Пример
2 3 9 10 5 10 4 4 3 7 2
3 9 10 5 10 4 4 3 7 2 0
0,0
(0 оценок)
Ответ:
УмныйАутист
07.10.2020 07:35
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ArrRandom(11,0,10).ToArray;
a.Println;
var tmp:= a[0];
for var i:= 0 to 9 do
a[i]:=a[i+1];
a[10]:=tmp;
a.Println;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
05Artur10
31.07.2019 02:10
Оценить информационный обьем стереоаудиофайла длительностью звучания 4 секунды при качестве звука 12 битов,42 кгц...
diana1140
13.09.2019 16:30
Заполните массив 15 произвольными целыми числами, введя их с клавиатуры и найдите среди них произведение чётных чисел нужно...
цветочек120
13.09.2019 16:20
Мне нужно каждую букву римской системы счисления разложить на числа само число mmmcmxcix пример 1000+1000+1000(это у нас 3 m,но вот дальше я не знаю) буду признательна за : -)...
DarinaLove11
29.08.2019 14:30
Найти количество элементов массива целых чисел а(n),которые кратно 9 и 3 массив заполнен числами от -7до 100....
fgegegegeegrrfff
24.06.2019 15:50
Какую часть часа составляют 2 минуты а)1/10 б)1/30 b)1/20 в дробях...
Тлопап
24.06.2019 15:50
Какой должна быть, на ваш взгляд, идеальная современная школа?...
Saralove34
24.06.2019 15:50
187. длина прямоугольника в 5 раз больше его ширины. чему равна площадь данного прямоугольника, если его ширина на 8 см меньше длины? скорее! ∧_∧...
Dec3mber
24.06.2019 15:50
Написати твір яким я бачу справжнього друга на основі оповідання митькозавр з юрківки . 15-20 речень. 210 ів ! дуже !...
dariaa3
24.06.2019 15:50
Записать уравнения первое слагаемое неизвестно,второе138,сумма 207...
anna0969
24.06.2019 15:50
Юра гулял с отцом вдоль шоссе.за время прогулки юра насчитал 84 автомашины,проехавших мимо него.из них он отметил марку жигули 12 автомашин.когда он сказал о своих подсчётах отцу,тот...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
КОМПАНИЯ
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ и учителей
Сообщество родителей
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
Установи приложение
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь понять?
Спроси здесь
// Внимание! Если программа не работает, обновите версию!
1) Циклический сдвиг
begin
var a:=ArrRandom(11,1,10); a.Println;
a:=(a[1:]+a[0]).ToArray; a.Println;
end.
Пример
4 9 9 4 7 4 5 5 2 2 9
9 9 4 7 4 5 5 2 2 9 4
2) Простой сдвиг
begin
var a:=ArrRandom(11,1,10); a.Println;
a:=(a[1:]+Arr(0)).ToArray; a.Println;
end.
Пример
2 3 9 10 5 10 4 4 3 7 2
3 9 10 5 10 4 4 3 7 2 0
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ArrRandom(11,0,10).ToArray;
a.Println;
var tmp:= a[0];
for var i:= 0 to 9 do
a[i]:=a[i+1];
a[10]:=tmp;
a.Println;
end.