Question

Дано два массива a и b, каждый состоит из n элементов. Построить третий массив c при условии ci = ai + bi. Отсортировать его по возрастанию cортировкой методом подсчета.

Можно задать массив рандомно, а можно и в ручную, как вам будет удобней.

Answer 1

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var n := ReadInteger('Размер массива:');

 var k := ReadInteger('Максимальное значение элемента:');

 var a := ArrRandom(n, 0, k);

 a.Println;

 var b := ArrRandom(n, 0, k);

 b.Println;

 var c := a.Zip(b, (p, q)-> p + q).ToArray;

 c.Println;

 k := c.Max;

 var v := ArrFill(k + 1, 0);

 for var i := 0 to c.High do

   v[c[i]] += 1;

 var d := 0;

 for var j := 0 to k do

   for var i := 0 to v[j] - 1 do

   begin

     c[d] := j;

     d += 1

   end;

 c.Println

end.

Размер массива: 15

Максимальное значение элемента: 40

31 11 31 28 10 30 16 38 24 25 11 38 0 29 35

31 36 6 35 15 2 13 34 10 6 37 14 32 31 10

62 47 37 63 25 32 29 72 34 31 48 52 32 60 45

25 29 31 32 32 34 37 45 47 48 52 60 62 63 72

Answer 2

Ну, судя по тому, что на задачи с С++ отвечают реже, вероятно указав в условии С++ я бы вообще не получил ответа =)

Answer 3

Ну почему же, у нас тут образовался любитель С-образных языков.

Answer 4

До того любитель, что для него все прочие языки - типа недоносков, по его же словам. Так что указывайте язык, не стесняйтесь.

Answer 5

Я добавил два весьма похожих задания, правда уже не забыв указать, что нужно использовать C++. Может тогда они вас заинтересуют?)
https://znanija.com/task/30200147
https://znanija.com/task/30200177

Answer 6

Нет, я тут за очень редким исключением не решаю задач на других языках. Раньше решал на любых, а потом поймал себя на мысли, что это незачем. Для чего писать коды по 30-50 и более строк, если можно обойтись их гораздо меньшим количеством?