Дано два массива a и b, каждый состоит из n элементов.
Дано два массива a и b, каждый состоит из n элементов. Выстроить третий массив c при условии ci = ai + bi. Отсортировать его по возрастанию cортировкой способом подсчета.
Можно задать массив рандомно, а можно и в ручную, как вам будет удобней. Задать свой вопрос
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
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.