Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
alekandra78zubo
01.01.2023 07:03 •
Информатика
Заполнить массив из 10 элементов случайными числами в интервале и выполнить циклический сдвиг массива вправо. формат ввода и вывода данных: исходный массив: 4 -5 3 10 -4 -6 8 -10 1 0 результат: 0 4 -5 3 10 -4 -6 8 -10 1
Показать ответ
Ответ:
rusnaktaniusha
13.07.2020 18:39
Const
n = 10;
var
i, s: integer;
a: array[1..n] of integer;
begin
Writeln('Введите элементы массива через пробел');
for i := 1 to n do Read(a[i]);
s := a[n];
for i := n downto 2 do a[i] := a[i - 1];
a[1] := s;
for i := 1 to n do Write(a[i]:4);
end.
Тестовое решение:
Введите элементы массива через пробел
4 -5 3 10 -4 -6 8 -10 1 0
0 4 -5 3 10 -4 -6 8 -10 1
0,0
(0 оценок)
Популярные вопросы: Информатика
dimon2ru
19.05.2023 00:01
Яку дію петрик виконав з інформацією ( збереження, передавання, опрацювання, пошук), якщо він - вчить основні відомості про коті...
ayska1
19.06.2021 07:41
В кодировке UTF - 32 каждый символ кодируется 32 битами. Арина написала текст (в нём нет лишних пробелов) ОБЖ, технология, история, биология, физика, химия, информатика - школьные...
kura2165
15.12.2021 18:30
. У исполнителя Квадратор две команды, которым присвоены номера: 1. прибавь 2 2. умножь на 5 Выполняя первую из них, Квадратор прибавляет к числу на экране 2, выполняя вторую...
danil67896430643
24.01.2020 07:28
Запишите значение переменной S, полученное в результате работы следующей программы. Паскаль...
Dermo238
05.05.2021 03:50
Отметь верно ли высказывание: при работе с файлами не следует давать файлу имя, которое не поясняет его содержание верно не верно при работе с файлами следует сохранять файл в...
алинка546
05.05.2021 03:50
Перед тобой имя файла с расширением. укажи, какой файл перед тобой: .doc — архиватортекстовый документзвуковой файлграфический документ.html —...
POZZITIFFON34
28.05.2022 09:59
При перекодировании из 16 битного текста в 8 битную кодировку сообщение уменьшается на 1280 бит . какого количество символов в сообщении?...
яестьумник
16.03.2023 19:46
Запишите такое число,котороебудет: а)как целым,так и рациональным б)рациональным,но не дробным в)целым,но не натуральным г)смешанным числом...
yulia123dron
18.02.2023 01:49
Какие силы действуют на подвешенную пластину в положении равновесия ?...
elnerfaiq
18.02.2023 01:49
При каких условиях х 8/х будет не правильная...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n = 10;
var
i, s: integer;
a: array[1..n] of integer;
begin
Writeln('Введите элементы массива через пробел');
for i := 1 to n do Read(a[i]);
s := a[n];
for i := n downto 2 do a[i] := a[i - 1];
a[1] := s;
for i := 1 to n do Write(a[i]:4);
end.
Тестовое решение:
Введите элементы массива через пробел
4 -5 3 10 -4 -6 8 -10 1 0
0 4 -5 3 10 -4 -6 8 -10 1