tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дан массив из 11 случайных,
Дан массив из 11 случайных, целых чисел, заданных на интервале [0,10]. сдвинуть элементы массива на одну позицию влево.
ivanova1987lena
2 11.09.2019 14:00
1
Ответы
tetyana5
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
ПОКАЗАТЬ ОТВЕТЫ
missvarvara2004
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
alinka660066
22.06.2020 11:57
18. Программные средства защиты информации — это специальные программы и программные комплексы, предназначенные для:Напишите реакции, характеризующие химические...
Darya2712
22.06.2020 11:58
В чем заключаются особенности Права и этики в сети Internet ?...
Swim1223
23.06.2020 11:59
Создайте приложение, которое выводит на экран последовательность из 15элементов одномерного массива, заполненного случайными числами в диапазонеот «-10» до «10»,...
chuckcher
22.06.2020 12:01
Составить структурную схему вычисления значений функции y=e^-3cosx-7.1a^2*x a=2(1)6; x=1(0.5)2.5...
marinaozerova3
22.06.2020 12:03
Составить структурную схему вычисления значений функции y=e^-cos-7.1a^2*x a=2(1)6; x=1(0.5)2.5...
afver8
23.06.2020 12:06
Ошибка с Windows 10, когда я нажимаю на одну из Windows происходит загрузка, после чего опять открывается это окно...
lagapep
22.06.2020 12:08
Туристическое агентство продаёт путёвки во Францию семейным парам. Молодожёнам предоставляется скидка 5%, если же среди молодожёнов есть хотя бы один, вступающий...
werwedsgfdg
04.02.2021 15:10
1. По сети передаются данные о банковских транзакциях. По каждой транзакции передаётся объём денежных средств. Входные данные: Сначала вводится число N - количество...
demon998
04.02.2021 15:10
Поменять местами переднюю и заднюю части массива с чётным количеством элементов for i := 1 to n do Obmen2(A, 2*n, i, i+n,);...
laikover
18.08.2019 12:30
На школьном дворе разбивают 4 клумбы прямоугольной формы. первая клумба представляет собой квадрат со стороной 20 метров. вторая клумба имеет форму прямоугольника,...
Популярные вопросы
На какую специальность мне поступить после 11 класса?...
2
Определите степень окисления элементов в веществах, формулы которых...
1
Сколько молекул содержится в открытом сосуде емкостью 1л? концентрация...
1
(30 ! )скласць сказы з словами - собака,боль,гусь,таполя...
1
На отрезки какой длины делит сторону биссектриса одного из углов...
2
Подобрать антоним к слову благословил...
3
Придумайте текст из 5 предложений, в этих предложениях должны...
1
Роль обычаев и традиций в моей жизни, и в жизни моего народа...
1
Задали три примера жизненных форм расстений...
3
Укажить найменше спильне кратне числ 12 и 18? а) 18 б)24 в)36...
2
// Внимание! Если программа не работает, обновите версию!
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.