Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
polinas6661
03.08.2022 19:08 •
Информатика
Программа паскаль.дан массив целых чисел. сдвинуть его циклически на один элемент вправо.
Показать ответ
Ответ:
МахитоТ
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 оценок)
Популярные вопросы: Информатика
Gdyfyttyffhfry
29.03.2020 18:00
Как это ваще делать а...
Nastya06923
19.06.2020 04:56
и очень сделать такую таблицу в Excel...
Valeria0710
11.04.2023 08:20
Задача Цифры числа Напишите программу, определяющую число десятков и единиц в двузначном числе. Подсказка: Число единиц – это последняя цифра числа, число десятков – первая...
milankagl
25.08.2022 10:01
Вматрице с [6 x 7] определить сумму элементов, лежащих в диапазоне от x до y. заменить первую строку матрицы на значение найденной суммы....
Dashaaleshenko
25.08.2022 10:01
1) вставь пропущенные слова. файловая - это организации файлов и папок на информации. 2) подчеркни верное в скобках файлы на экране монитора отображаются в (текстовом,графическом,звуковом)...
bigman4
25.08.2022 10:01
Есть директор а у директора есть брат сергей ау серегея нету брата. как такое може быть?...
antipovakamila
18.01.2021 01:41
Фермерское хозяйство занимается разведением рыбы. Каждый месяц вылов рыбы увеличивается на 12%. При этом нельзя, чтобы количество рыбы в пруду было ниже чем k тонн. Сколько...
victoriya141005
14.05.2022 17:09
Проверочная работа «Плотность» Задача 1. На катушке намотана медная проволока.Найти длину проволоки, если масса катушки с проволокой 6610 г,масса катушки без проволоки 870г,...
AnnaVlasova09
14.05.2022 17:09
2Read the interview. Choose the correct answers.Рa filmCineMag What in Budapest? in afilm?Robert No. I? I CineMag Wow! That s exciting! Was it difficult?Robert Yes. We quickly...
Янияру
29.04.2023 00:53
Расстояние от центра окружности до точки В равно м а радиус окружности равен r Сравните м и r, если точка В лежит внутри круга, ограниченного данной окружностью....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.