Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
alekseywindas
26.12.2020 15:14 •
Информатика
Дан массив из 11 случайных, целых чисел, заданных на интервале [0,10]. сдвинуть элементы массива на одну позицию влево.
Показать ответ
Ответ:
elizapanfilova1
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 оценок)
Ответ:
megadens10
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 оценок)
Популярные вопросы: Информатика
averinatatka
26.07.2022 05:35
Які із зазначених дій не є інформаційними процесами?. - зберігання- пошук- консервування- опрацювання- побудова...
Tandy
22.05.2021 12:00
«Моделирование как метод познания» информатика умоляю >...
snoopelol5
18.03.2022 13:51
Жаңа тақырып бойынша сұрақтар: 1.Тілдің әліппесі, құрылымы қандай?2.Прогаммалау тілі мен кәдімгі тілдің қандай айырмашылығы бар?3.Сызықты алгоритм және сызықтық программаны...
20042007rbn
06.04.2021 18:50
Какими можно загрузить WordPress на локальный сервер? ...
КирОаоырчлцрслчь
19.02.2020 19:09
Номер 1 алгоритмом если можно как бы начало-условие и т.д...
Sergfijd
13.05.2020 07:14
Складіть проект для малювання кілець на прапорі Олімпійські ігри...
МарияПремудрая1
27.01.2022 06:01
Контрольна робота з іноформатики 8 клас...
misselYT
07.04.2022 16:16
Место где объединяются веб-страницы называется...
HermioneGranger19
11.01.2020 19:58
Python кр 8 клас інформатика...
natalijamatijch
26.10.2022 05:39
Информатика на с++.Реши хотя бы одну задачу из двух 1)на промежутке от а до б найти числа у которых взаимно простые две последних цифры 2)на промежутке от а до б найти...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
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.