Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Требуется написать программу, определяющую, можно ли выполнить данное задание https://www.cyberforum.ru/ pascal/ thread659560.html
Помогите решить задачу! "Васю попросили написать, проверяющую можно ли получить строку T только лишь удалением символов из строки S. Он не смог выполнить эту сложную задачу и попросил Вас помочь...
Найти сумму элементов матрицы, которые размещены в столбцах с отрицательным элементом на главной диагонали Pascal
Дана квадратная матрица A порядка k. Найти сумму элементов матрицы, которые размещены в столбцах с отрицательным элементом на главной диагонали. Вывести матрицу на экран и значение суммы. Дано...
Процедура или функция: табулирование функции Pascal
1. y = e^ ( 0.2x^2) ; интервал : , step = 0.1. нужно сделать табулирование функции и вывести ее на экран, а так же при помощи цыклов while, repeat вычеслить сумму значений функции. результат...
Pascal как описать даную фигуру? как описать эту фигуру? https://www.cyberforum.ru/ pascal/ thread659380.html
Pascal Определить название года https://www.cyberforum.ru/ pascal/ thread659378.html
Друзья! Помогите пожалуйста решить задачу! В программу вводят год и программа определяет название Перечисляю названия: 1. крыса 2. корова 3. тигр 4. заяц 5. дракон 6. змея 7. лошадь 8. овца
Создание каталога журналов и статей Pascal
Создать каталог из журналов и статей. Выдавать информацию о публикациях, удовлетворяющих тому или иному критерию, например, изданных с 2000 года. Поля записи могут содержать информацию об авторе,...
Вычислите значение интеграла Pascal
помогите плиз, заранее блогодарен! Вычислите значение интеграла\int_{0}^{n/2}sin(x)dxпо общей формуле правых прямоугольников с заданным числом разбиений.П р и м е ч а н и е. Формула правых...
Pascal Вывести на экран числа,в которых цифры разные Полбзователь с клавиатуры задает целое позитивное число N (1<N<10). Пользователь должен ввести N 4-значных чисел. Вывести на экран те числа,в которых цифры разные https://www.cyberforum.ru/ pascal/ thread658723.html
Pascal Найти все простые числа от 1 до N https://www.cyberforum.ru/ pascal/ thread658671.html
Значение N пользователь задает с клавиатуры. N>1. Простым является целое число,которое делится ттолько на 1 и само на себя.
Pascal Найти площадь кольца,внутренний радиус которого равен r, а внешний - заданному числу R Найти площадь кольца,внутренний радиус которого равен r ,а внешний-заданному числу R(R>r Уважаемые программисты помогите решить! Спасибо за ранее!! https://www.cyberforum.ru/ pascal/ thread658634.html
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 7,999
Записей в блоге: 1
29.09.2012, 14:02 0

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

29.09.2012, 14:02. Просмотров 29859. Ответов 1
Метки (Все метки)

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

Решение


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Var A:array[1..100] of integer;
    i,n,t:integer;
Begin
    write('Введите размерность: ');readln(n);
    writeln('Исходный массив: ');
    For i:=1 to n do
     Begin
      A[i]:=random(30)-15;
      write(A[i]:4);
     End;
    writeln;
    writeln('Преобразованный: ');
    i:=0;
    While i<n-1 do
     Begin
      inc(i,1);
      t:=A[i];
      A[i]:=A[i+1];
      A[i+1]:=t;
      inc(i,1);
     End;
     For i:=1 to n do
      write(A[i]:4);
    readln;
End.


Вернуться к обсуждению:
В заданном одномерном массиве поменять местами соседние элементы, стоящие на четных местах, с элементами, стоящими на нечетных
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.09.2012, 14:02
Готовые ответы и решения:

В массиве поменять местами соседние элементы, стоящие на нечетных местах со стоящими на четных
уважаемые программисты помогите решить пару детских задач : 1`) Дан массив положительных чисел....

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

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

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

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