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

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

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

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

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

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

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

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

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

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

1
Hitoku
Модератор
1694 / 1293 / 1398
Регистрация: 28.10.2016
Сообщений: 4,235
Завершенные тесты: 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
Привет! Вот еще темы с решениями:

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

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

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

Вывести все четные элементы массива стоящие на четных местах, принадлежащие отрезку CD.
Дан целочисленный двумерный массив 5х5. Вывести все четные элементы массива...


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

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

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