Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Проверить последнюю строку матрицы на выполнение признака: элементы строки образуют возрастающую последовательность Дана целочисленная квадратная матрица порядка n(задана с клавиатуры). 1) Проверить последнюю строку на выполнение признака: элементы строки образуют возрастающую последовательность 2) Найти номера строк, элементы которых образуют возрастающую последовательность нужны коментарии :( https://www.cyberforum.ru/ pascalabc/ thread2213552.html	Наглядная сортировка шейкером Pascal ABC Помогите пожалуйста написать программу, для сортировки массива методом шейкера, при этом во время выполенения программы элементы которые меняются местами должны выделяться разными цветами. А также должна существовать задержка минимум в 1 секунду, перед тем, как значения будут меняться местами. Спасибо. Дополню, нужно сделать, так, как на гифке (((9
Pascal ABC Осуществить перевод заданного числа в систему с основанием 10 https://www.cyberforum.ru/ pascalabc/ thread2213535.html Заданы основание системы счисления p(p<17) и строка s, представляющая собой запись числа в этой системе счисления. Осуществить перевод заданного числа в систему с основанием 10.	Pascal ABC Напечатать все слова, которые начинаются с буквы а https://www.cyberforum.ru/ pascalabc/ thread2213533.html Дана строка длиной не более 255 символов. Строка содержит слова, разделенные между собой пробелами. Напечатать все слова, которые начинаются с буквы а.
Найти все меньшие n числа Мерсена Pascal ABC Дано натуральное число n. Найти все меньшие n числа Мерсена. (Простое число называется числом Мерсена, если оно может быть представлено в виде 2^p-1 где p – тоже простое число. Определить функцию, распознающую простые числа в виде:	Pascal ABC Вложенные циклы https://www.cyberforum.ru/ pascalabc/ thread2213523.html Есть склад, на котором принят иной регламент распределения бутылок по упаковкам, позволяющий формировать упаковки с любым количеством бутылок в каждой, начиная с 2-х бутылок. Но при расфасовке контейнера не должно остаться нераспределённых бутылок. Если контейнер не позволяет расфасовать бутылки в несколько упаковок с одинаковым количеством бутылок в каждой, такой контейнер помечается...
Pascal ABC Вложенный цикл Напишите программу с использованием вложенных циклов, выводящую на экран цифры «1» по приведённому ниже шаблону: 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 Размер такого треугольника из единиц (фактически количество единиц первой строки) определяет сам пользователь программы. https://www.cyberforum.ru/ pascalabc/ thread2213522.html	Pascal ABC Вложенные циклы Пользователь программы вводит произвольную последовательность целых положительных чисел. Определите, сколько раз в этой последовательности встречается заданная им цифра?
Pascal ABC Любой график функции https://www.cyberforum.ru/ pascalabc/ thread2213439.html Я написал прогу, которая делает любой график функции, но надо чтобы функцию можно было написать в ходе выполнения проги, а не изменяя код. Так же, моя программа после рисования графика спрашивает икс или игрик?В зависимости от выбора, пользователь вводит известный ему икс или игрик, находит неизвестный икс или игрик и ставит красную точку в этих координатах. Так вот, мне нужно, чтобы в...	Pascal ABC Вычислить Ln(x+1) разложением в ряд Для ln(x+1) 1) Вычислить значение функции, заданной с помощью ряда Тейлора, для некоторого х с точностью e. Проверить правильность алгоритма, вычислив значение функции по формуле. 2)Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора, на интервале от хнач до хкон с шагом dx с точностью e. Таблицу снабдить заголовком и шапкой. Каждая строка таблицы... https://www.cyberforum.ru/ pascalabc/ thread2213238.html
Pascal ABC Коммерсант Коммерсант, который имел стартовый капитал k гривен, занялся торговлей, которая ежемесячно увеличивает капитал на p%. Через сколько лет он накопит сумму s, достаточную для покупки собственного магазина?	Pascal ABC Написать программу вычисления значения функции Написать программу вычисления значения функции f (x, y), если f (x, y) = 1.1 при x 2 + y2 <= 1, если f (x, y) = cos (x) + y при 1> = x 2 + y2 <= 2, если f (x, y) = ln (x) +1 при x 2 + y2> = 10, в остальных случаях f (x, y) = 0. https://www.cyberforum.ru/ pascalabc/ thread2213230.html

Hitoku

1755 / 1347 / 1407

Регистрация: 28.10.2016

Сообщений: 4,267

20.03.2018, 11:07

Упорядочить четные элементы массива по возрастанию, оставив остальные на своих местах - Pascal ABC - Ответ 12230290

20.03.2018, 11:07. Показов 2320. Ответов 1

Метки (Все метки)

Сообщение было отмечено СерЕкНик как решение

Решение

Вроде так

Pascal

const n = 10;
var a: array[1..n] of integer;
    i, ii, x: integer;
begin
  //комментарий
  randomize;
  for i := 1 to n do begin
    a[i] := -15 + random(31);
    write(a[i], ' ');
  end;
  writeln;
  i := 2;
  while i < n do begin
    ii := i;
    while ii <= n do begin
      if a[i] > a[ii] then begin
        x := a[i];
        a[i] := a[ii];
        a[ii] := x;
      end;
      inc(ii, 2);
    end;
    inc(i, 2);
  end;
  for i := 1 to n do write(a[i], ' ');
end.

Вернуться к обсуждению:
Упорядочить четные элементы массива по возрастанию, оставив остальные на своих местах Pascal ABC

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

20.03.2018, 11:07

Готовые ответы и решения:

Упорядочить отрицательные элементы массива по возрастанию, оставив остальные на своих местах
Дан массив случайных целых чисел от -99 до 99. Упорядочить отрицательные элементы массива по...

Отсортировать четные элементы массива, оставив нечетные элементы на своих местах
Дан одномерный массив, содержащий n элементов. Отсортировать четные элементы массива, оставив...

Отсортировать четные элементы массива, оставив нечетные элементы на своих местах
помогите пожалуйста %-) Дан одномерный массив, содержащий n элементов. Отсортировать четные...

Упорядочить нечетные элементы, оставив четные на местах
Здравствуйте Прошу помощи в написании следующей программы: В одномерном массиве упорядочить...

	20.03.2018, 11:07

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

20.03.2018, 11:07

Помогаю со студенческими работами здесь

Отсортировать положительные элементы матрицы по возрастанию, оставив на своих местах отрицательные элементы.
вводится массив 6*6.отсортировать положительные элементы массива по возрастанию,оставив на своих...

В одномерном массиве упорядочить нечетные элементы, оставив четные на местах
В одномерном массиве упорядочить нечетные элементы, оставив четные на местах. Сортировка прямой...

Упорядочить только только четные элементы массива, нечетные оставить на своих местах
Помогите пожалуйста переделать программу так, чтобы функция сортировала только четные элементы, а...

Сортировка одномерного массива - числа большие 2 по возрастанию, а остальные оставить на своих местах
вот примерный код, что там нужно исправить #include <stdio.h> #include <iostream.h> #include...

Наверх