Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Doplis
06.03.2021 11:51 •
Информатика
Заполнить массив из 10 элементов случайными числами в интервале и выполнить циклический сдвиг массива вправо. формат ввода и вывода данных: исходный массив: 4 -5 3 10 -4 -6 8 -10 1 0 результат: 0 4 -5 3 10 -4 -6 8 -10 1
Показать ответ
Ответ:
lizochkaegorov
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 оценок)
Популярные вопросы: Информатика
12abgh
24.03.2020 23:05
Сделать 2 и 4 примерно до 11:20...
ryslanka154
15.02.2022 12:03
Створіть у різних формах подання інформаційні моделі об’єкта квітка з точки зору художника та письменника. СДЕЛАЙТЕ...
adashevanastya
19.02.2020 11:43
Здравствуйте! Нужна с переводом проги из паскаля в С++ Заранее поиск максимального кратного 3 function Max(a:mtr;var k:byte):integer; var i,j,mx:integer; begin k:=0;...
alexeymaksimov
09.05.2023 21:05
Указать логическое уравнение формируемое на выходе каждой схемы...
maloy4424
23.05.2023 15:40
Анализ информации в текстовом процессоре ms excel. для анализа данных служит: * o а. создание диаграмм представления данных; o б. создание и редактирование формул...
katyaden2
23.05.2023 15:40
Обработка и форматирование информации в текстовом процессоре ms excel . к возможностям форматирования информации относятся: * o а. создание границ таблиц; o б. изменение...
woonov1488
20.01.2023 09:35
Косновным возможности обработки информации в текстовом процессоре msword относятся: * o а. создание презентаций; o б. создание электронных интерактивных таблиц; o...
Rasul101231
20.01.2023 09:35
Используя бинарный поиск, найти порядковый номер элемента, который равен разности первого элемента массива с последним.в динамическом массиве через паскаль...
ssqllxx
29.03.2021 20:57
Из ниже списка выпишите отдельно формулы веществ с кристаллическими решётками а)атомной б)ионной в)металлической г)молекулярной. cabr2,cu,o2,(тв),cuo,br2(тв),c(алмаз),ba,nano3,hci(тв),fe3(so4)3,co2(тв),h2o(тв)...
vhovalyg90
29.03.2021 20:57
Тема: массивы в паскале вы посетили магазин и купили 20 видов товара. в таблицу tovar[1: 20] вы записали количество купленного товара каждого вида. в таблицу cena[1:...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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