Упорядочить по убыванию все элементы массива, стоящие после первого чётного элемента

@alcoholnothot11 · Регистрация: 26.01.2022

Студворк — интернет-сервис помощи студентам

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

@Old30School · 27.01.2022, 12:02

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
27
var a:array of integer;
    n,i,j,k:integer;
begin
  write('Размер массива=');
  readln(n);
  setlength(a,n);
  randomize;
  k:=n;
  for i:=0 to n-1 do
  begin
    write('A[',i+1,']=');
    readln(a[i]);
    //a[i]:=random(19)-9;
    //write(a[i],' ');
    if(a[i]mod 2=0)and(k=n)then k:=i;
  end;
  writeln();
  for i:=0 to n-1 do
    write(a[i],' ');
  writeln;
  for i:=n-1 downto k+2 do
    for j:=k+1 to i-1 do
      if a[j]<a[i] then Swap(a[j],a[i]);
  for i:=0 to n-1 do
    write(a[i],' ');
  writeln;
end.

@bormant · 28.01.2022, 10:45

Old30School,
ошиблись разделом, приведенный код не подходит для Pascal ABC:
строка 1: описание динамического массива
строка 6: SetLength
строка 23: Swap.

Добавлено через 9 минут

В сухом остатке:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const nMax=50;
var
  n, i, j, k, t: Integer;
  a: array [0..nMax-1] of Integer;
begin
  Randomize;
  repeat Write('N [2..',nMax,']: '); Read(n);
  until n in [2..nMax];
  Write('A(',n,'): ');
  for i:=0 to n-1 do Read(a[i]);
  WriteLn('A ='); for i:=0 to n-1 do Write(' ',a[i]); WriteLn;
  {k:=0;} while (k<n) and Odd(a[k]) do Inc(k);
  for i:=n-1 downto k+2 do for j:=k+1 to i-1 do if a[j]<a[i] then begin
    t:=a[i]; a[i]:=a[j]; a[j]:=t;
  end;
  WriteLn('A''='); for i:=0 to n-1 do Write(' ',a[i]); WriteLn;
end.

@Old30School · 28.01.2022, 18:17

Сообщение от bormant

описание динамического массива

и что же по уму делать, список составлять?

@bormant · 28.01.2022, 19:54

Сообщение от Old30School

что же по уму делать

Для учебных целей достаточно и того, что под выше спойлером "В сухом остатке".

Сообщение от Old30School

список составлять?

А смысл? По старинке, указатель на массив+GetMem в этой ситуации выглядят лучше. Да и в задании массив, а не список.

Новые блоги и статьи Все статьи Все блоги /
1С: Программный отбор элементов справочника Номенклатура по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор под наименованию группы (на. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника Сотрудники по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .

@alcoholnothot11 0 / 0 / 0 Регистрация: 26.01.2022 Сообщений: 12

	Упорядочить по убыванию все элементы массива, стоящие после первого чётного элемента 27.01.2022, 09:37. Показов 684. Ответов 4 Метки нет (Все метки) помогите пожалуйста Ввести одномерный целочисленный массив А, вывести его. В массиве упорядочить по убыванию все элементы, стоящие после первого четного элемента (т.е. элемента значения которого является четное число). Все элементы до первого четного числа остаются на своих местах и в сортировке участия не принимают. 0