Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Очистка потока ввода (лажовый readln) https://www.cyberforum.ru/ pascal/ thread1066922.html
И снова здравствуйте!:) Столкнулся с проблемой (и не в первый раз) - после readln; программа не останавливается. read(); в программе не используется. Каковы могут быть причины? Понимаю, что...
Pascal Рекурсивные процедуры и функции
Дано n различных натуральных чисел. Напечатать все перестановки этих чисел
Найти все натуральные Pascal
Найти все натуральные n - значные числа цифры в которых образуют строго возрастающую последовательность (например, 1234, 5789)
Pascal Напишите программу, проверяющую попадает ли точка с координатами x и y в заданную область Напишите программу, проверяющую попадает ли точка M(x;y) с координатами x и y в заданную область. Ответ выводится в текстовом режиме. https://www.cyberforum.ru/ pascal/ thread1066894.html
Pascal Шифрование файла перемешанным алфавитом, выход индекса за границы массива https://www.cyberforum.ru/ pascal/ thread1066774.html
Добрый день, форумчане! Столкнулся с проблемой выхода за границы массива, прошу помощи. Дано задание: Текстовый файл зашифровать с помощью перемешанного алфавита, например ...
Pascal задания по информатике (раздел - Паскаль)
1. структура программного обеспечения (ПО). Классификация и сферы применения прикладного ПО. 2. создание ПО. обзор языков программирования и инструментальных систем. 3. составные части...
Pascal Найти наименьший номер члена последовательности
Найти наименьший номер члена последовательности, для которого выполняется условие |An-A n-1| < ε. Вывести на экран этот номер и все элементы A i, где i = 1, 2,..., n. {a}_{n}=arctg{a}_{n-1}+1,...
Pascal Ввести файл. Каждый четный элемент в файле заменить результатом его целочисленного деления на 5. Файл вывести до и после преобразования Доброго времени суток, форумчане! Код написал. Не работает. выдает один и тот же файл до преобразования и после. в чем моя ошибка? Заранее спасибо! program Z15; var b,i,p:integer; f:file of... https://www.cyberforum.ru/ pascal/ thread1066576.html
Pascal Дано натуральное число n. Вычислить https://www.cyberforum.ru/ pascal/ thread1066570.html
Помогите написать программу Дано натуральное число n. Вычислить S = 1-2 + 2-3-4 + ... + n-(n + 1)...2л
Pascal Программа расчета расстояния по графам На плоскости заданны элементы, некоторые соединены. Требуется выбрать начальный элемент для построения пути, не содержащего циклов, максимальной длинны. Путь строится по следующему правилу: из всех... https://www.cyberforum.ru/ pascal/ thread1066541.html
3450 / 2388 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
09.01.2014, 20:26 0

В одномерном массиве поменять местами соседние элементы, стоящие на четных и нечетных местах

09.01.2014, 20:26. Показов 2122. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
// t - временная переменная
// n - количество элементов массива,
for i:=1 to n div 2 do
begin
  t:=a[i*2];
  a[i*2]:=a[i*2-1];
  a[i*2-1]:=t;
end;


Вернуться к обсуждению:
В одномерном массиве поменять местами соседние элементы, стоящие на четных и нечетных местах
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.01.2014, 20:26

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

В массиве элементы стоящие на нечетных местах разделить на среднее арифметическое положительных элементов.
В роде бы не сложные задачи, но немогу разобраться... вторую вообще немогу понять((( Напишите...

Поменять местами элементы в одномерном массиве.
Помогите пожалуйста составить программу. Поменять местами минимальный и последний отрицательный...

Создать массив (С) так, чтобы элементы (А) стояли на четных местах, а элементы (В) - на нечетных местах
Из двух заданных массивов А (10) и В (10). Создать массив (С) так, чтобы элементы (А) стояли на...

В одномерном массиве поменять местами максимальный и минимальный элементы
Здраствуйте, помогите мне пожалуйста, нужно решить 3 задачки. 1) В одномерном массиве поменять...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.