сортировать массив.вообще не представляю

@nastia_k · Регистрация: 04.02.2013

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

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

@Mysterious Light · 04.02.2013, 23:53

Как-то так
b хранит те элементы, которые участвуют в сортировке

Pascal

const max = 10;
var a,b : array[1..max] of integer;
var c : array[1..max] of boolean;
var i,k : 0..max;
begin
{...}
k:=0;
for i:=1 to max do
  begin
    c[i] := (a[i] mod 3 > 0);
    if c[i] then
    begin
      inc(k);
      b[k]:=a[i];
    end;
  end;
{ sorting b }
for i:=max downto 1 do
  if c[i] then
  begin
    a[i]:=b[k];
    dec(k);
  end;
end.

@Puporev · 05.02.2013, 09:45

nastia_k, Посмотрите решение в этой теме
Отсортировать положительные элементы массива по возрастанию, отрицательные элементы оставить на своих местах
и замените там условие меньше 0 на
if (a[i] mod 3=0)and(a[j] mod 3=0)
и возрастание на убывание, смените знак > на знак <

@nastia_k 1 / 1 / 1 Регистрация: 04.02.2013 Сообщений: 14
		1
	сортировать массив.вообще не представляю 04.02.2013, 22:37. Показов 1004. Ответов 2 Метки нет (Все метки) дан одномерный массив целого типа.выполнить сортировку элементов.которые не кратны трём в порядке убывания,не перемещая остальные элементы массива. пожалусто)оч надо) 0

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	05.02.2013, 09:45	3
	nastia_k, Посмотрите решение в этой теме Отсортировать положительные элементы массива по возрастанию, отрицательные элементы оставить на своих местах и замените там условие меньше 0 на if (a[i] mod 3=0)and(a[j] mod 3=0) и возрастание на убывание, смените знак > на знак < 1

сортировать массив.вообще не представляю

Решение