Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
СерЕкНик
0 / 0 / 1
Регистрация: 28.09.2017
Сообщений: 15
#1

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

20.03.2018, 10:09. Просмотров 729. Ответов 1
Метки нет (Все метки)

Упорядочить четные элементы массива по возрастанию, оставив остальные на своих местах.
с комментариями
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.03.2018, 10:09
Ответы с готовыми решениями:

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

Ввести массив A(N). Упорядочить четные элементы массива по убыванию, а не четные по возрастанию.
Ввести массив A(N). Упорядочить четные элементы массива по убыванию, а не...

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

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

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

1
Hitoku
Модератор
1702 / 1301 / 1400
Регистрация: 28.10.2016
Сообщений: 4,240
Завершенные тесты: 4
20.03.2018, 11:07 #2
Лучший ответ Сообщение было отмечено СерЕкНик как решение

Решение

Вроде так
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
26
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.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.03.2018, 11:07

Упорядочить по возрастанию четные элементы вектора
Добрый день. Помогите пожалуйста: Упорядочить по возрастанию четные элементы...

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

Упорядочить по убыванию все положительные элементы одномерного массива, остальные элементы заменить нолями
Составить программу упорядочения (по убыванию) всех положительных элементов...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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