Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
cooldude28
05.03.2023 08:09 •
Информатика
Программа паскаль.дан массив целых чисел. сдвинуть его циклически на один элемент вправо.
Показать ответ
Ответ:
sveta7811
17.09.2020 23:15
Const n = 10;
Var m : array[1..n] of Integer;
i,k : Integer;
Begin
For i:=1 to n do
Begin
m[i]:=i;
Write(m[i],' ');
end;
Writeln;
k:=m[n];
For i:=n downto 2 do m[i]:=m[i-1];
m[1]:=k;
For i:=1 to n do Write(m[i],' ');
Writeln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Баянсулу11
05.04.2021 01:42
Яке розширення має текстовий документ у програмі а) блокнот б) Microsoft word в)LibreOfficc writer...
nastya190420
17.08.2020 05:08
Какое из чисел больше?8 класс...
sentyakovv
04.06.2022 09:51
Составьте программу на языке Python, используя оператор цикл ...
galina6969
28.02.2021 07:37
Как нарисовать дом с забором в паскаль abc...
Антон446534
29.05.2020 20:47
Установи соответствие. Идею механической машины с идеейпрограммного управления соединил...А. ЛавлейсПервым программистом мира считается...Д. НейманСовременную организацию...
dasha50052
30.09.2020 23:40
Иван.Саввич.Никитин,,Утро Определить: 1.Тему. 2.Основную мысль. 3.Тип речи. 4.Стиль речи. 5.Средства связи предложеий....
Noooo123456
30.09.2020 23:40
Решите уравнение(12 ц5/13+ у)-9 ц9/13=7 ц7/13...
potehin30
02.02.2021 19:26
Каким образом можно увеличить силу трения? Посыпать поверхности соприкосновения мраморной крошкой. Смазать поверхности соприкосновения маслом Нанести на поверхности соприкосновения...
vitay123
28.04.2020 22:43
Определите среднюю температуру ...
05gazieva05
05.05.2022 18:56
Известны значения элементов целочисленного массива а. Запишите значения элементов массива b, сформированного следующим образом: for i:=1 to 8 do b[i]:=a[i]*2...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var m : array[1..n] of Integer;
i,k : Integer;
Begin
For i:=1 to n do
Begin
m[i]:=i;
Write(m[i],' ');
end;
Writeln;
k:=m[n];
For i:=n downto 2 do m[i]:=m[i-1];
m[1]:=k;
For i:=1 to n do Write(m[i],' ');
Writeln;
end.