Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Danila1367
25.02.2023 16:37 •
Информатика
Дан массив из 11 случайных, целых чисел, заданных на интервале [0,10]. сдвинуть элементы массива на одну позицию влево.
Ответ:
Ангелок2007
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 оценок)
Ответ:
lizniki82
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 оценок)
Популярные вопросы: Информатика
диииааннаа123
04.02.2023 07:58
Составьте программу, по которой компьютер N раз за ввод любых чисел и в результате выведет удвоенную сумму введенных чисел. N запрашиваем у пользователя. Использовать оператор...
данил20601
25.06.2021 03:53
2. Заполните данные по оценкам с использованием функции получения случайных чисел в пределах от 5 до 10 включительно (=СЛУЧМЕЖДУ(5;10)). 3. Выполнить подсчет в столбце «Общий »....
damama
24.09.2020 06:05
Запиши математическое выражение (10+z)2 на языке Паскаль...
bopoh234567
15.01.2022 00:04
Жэсть какие цвета не участвуют в построении цветного изображения на экране монитора: Красный Белый Чёрный Желтый Зелёный 2) какого цвета из в выше перечисленном списке не хватает...
madara014
01.05.2023 11:40
Объедений устройства в группы...
sek071001p0ancj
10.05.2021 20:43
Напишите массив на языке паскаль,который сможет высчитывать наивысшую,наименьшую и среднюю температуру воздуха за день из приведенных пользователем данных с клавиатуры....
nelia3232
07.08.2021 12:07
С ИНФОРМАТИКОЙ Во Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 2 раза? i:=1; while i =... do begin writeln( Привет! ); i:=i+1 end; Во Сколько раз будет...
privetjakot
07.08.2021 12:07
Информационный объем следующего предложения 480 бит. Определите, какой объем информации несет один символ?...
07052017
16.05.2023 22:07
Что такое мультимедиа? Что означает в переводе с латинского...
evakuleva
16.05.2023 22:07
Думаю понятно, что мне надо....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
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.