Дано два массива a и b, каждый состоит из n элементов.

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



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

Задать свой вопрос
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)-gt; 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

Алина Хухрянская
Прошу помилованья, я не внимательно указал условие задачи. Я пренебрегал написать, что решение должно быть на C++. Решение вы дали правильно, так что я отмечу ваше решение как лучшее. Но я буду благодарен, если вы напишите эту же программу на C++.
Миша Цветков-Давыдов
А для чего бдительность тут - вы же средств не выплачиваете, а чужой труд - это такая мелочь ...
Валерия
Ну, судя по тому, что на задачки с С++ отвечают пореже, возможно указав в условии С++ я бы вообщем не получил ответа =)
Юрка Трауберг
Ну почему же, у нас здесь образовался любитель С-образных языков.
Максимка
До того любитель, что для него все прочие языки - типа недоносков, по его же словам. Так что указывайте язык, не стесняйтесь.
Инна Бодалова
Я добавил два очень схожих задания, правда теснее не забыв указать, что необходимо использовать C++. Может тогда они вас заинтересуют?)https://znanija.com/task/30200147https://znanija.com/task/30200177
Vadik Bazgadze
Нет, я здесь за очень редчайшим исключением не решаю задач на иных языках. Ранее решал на всех, а позже словил себя на идеи, что это незачем. Для чего писать коды по 30-50 и более строк, если можно обойтись их еще наименьшим количеством?
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт