Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
чивапчич
14.02.2021 22:44 •
Информатика
Взаданном одномерном массиве поменять местами соседние элементы. напишите программу на паскале, заранее !
Показать ответ
Ответ:
gea99
23.06.2020 14:49
Var
n, i, c : integer;
a : array [1..1000] of integer;
begin
read (n);
for i := 1 to n do read (a[i]);
for i := 1 to n div 2 do
begin
c := a[i*2];
a[i*2] := a[i*2-1];
a[i*2-1] := c;
end;
for i := 1 to n do
write (a[i], ' ');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Karin31
23.01.2022 23:02
Зна о7+76б) Делимое2501 0делительЗначение частного | 23. Реши уравнения.56 : х = (10 +6) : 2х - 340 : 104. Реши задачу.В альбоме разместили 35 фотографиСколько фотографий осталось?6....
dianamakhmutova1
24.05.2021 22:32
напишите функцию которая выводит на экран три переданные ей числа в порядке возрастания...
oliand
25.08.2020 19:48
Переведите число 194 в двоичную, шестиричную и восьмеричную системы счисления. выполните проверку, т.е. обратный перевод. напишите решение...
albekova1
28.03.2021 07:52
Создайте список целых чисел от -10 до 10 используя список через присвоение конкретных значений....
BOJl40K
30.08.2022 23:58
Определи вид информации по форме представления.Установи соответствие с видом информации:Количественные характеристики - 1.Графическая2.Числовая3.Видеоинформация4.Прогноз погоды,...
para656
28.02.2023 07:26
составьте программу рисования ряда одинаковых цветов с использованием процедуры flower. ...
Znoke99
01.02.2023 10:38
Сканируется цветное несжатое изображение 5х5 кв. см. Разрежающая сканера - 1200х600 dpi, глубина цвета - 3 байта. Какой информационный объем будет иметь полученный графический файл?...
polinavorkuta
30.06.2020 11:35
Поиск заданного элемента в списке mas = [3,5,67,-65,34,21] # задаем списокprint(mas) ………………………………… [1] # результат вывода списка на экран point=3 # задаем искомое значениеl = len(mas)...
Eugenrar
28.04.2020 01:16
Допишите предложение. употребите Present Continuous глагола try...
MashimaHiro
28.04.2020 01:16
Jenny & Sebastian Irene Strothmann(leicht gekürztSie begegneten sich zwanzig Minuten vor acht auf demFlur. Jenny, wie immer im Eiltempo, knallte dieWohnungstür hinter sich zu...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n, i, c : integer;
a : array [1..1000] of integer;
begin
read (n);
for i := 1 to n do read (a[i]);
for i := 1 to n div 2 do
begin
c := a[i*2];
a[i*2] := a[i*2-1];
a[i*2-1] := c;
end;
for i := 1 to n do
write (a[i], ' ');
end.