Объединить два случайным образом созданных массива в один упорядочить новый массив по убыванию pascal abc по теме: сортировка массива

122

307

Посмотреть ответы 2

Ответы на вопрос:

Unicorn536

Информатика

4,6(59 оценок)

1. примерно так учат писать программы в const nn=100; // предельное кол-во элементов в массиве type mas=array[1..nn] of integer; procedure randomarray(var a: mas; n,p,q: integer); // заполняет первые n элементов массива a // случайными числами из интервала [p; q] var i: integer; begin for i: =1 to n do a[i]: =random(q-p+1)+p end; procedure printarray(a: mas; n: integer); // выводит на экран первые n элементов массива a var i: integer; begin for i: =1 to n do write(a[i],' '); writeln end; procedure sortbydescending(var a: mas; n: integer); // сортирует по невозрастанию первые n элементов массива a. // элементарная обменная сортировка var i,j,t: integer; begin for i: =1 to n-1 do for j: =1 to n-1 do if a[j]< a[j+1] then begin t: =a[j]; a[j]: =a[j+1]; a[j+1]: =t end end; // основная программа var i,n1,n2,n3,x,y: integer; a,b,c: mas; begin randomize; write('кол-во элементов в массиве и границы интервала из значений: '); read(n1,x,y); randomarray(a,n1,x,y); write('кол-во элементов в массиве и границы интервала из значений: '); read(n2,x,y); randomarray(b,n2,x,y); write('первый массив: '); printarray(a,n1); write('второй массив: '); printarray(b,n2); writeln('объединенный массив, отсортированный по невозрастанию'); n3: =n1+n2; for i: =1 to n1 do c[i]: =a[i]; for i: =1 to n2 do c[i+n1]: =b[i]; sortbydescending(c,n3); printarray(c,n3) end. тестовое решение кол-во элементов в массиве и границы интервала из значений: 8 10 60 кол-во элементов в массиве и границы интервала из значений: 6 30 90 первый массив: 41 56 14 57 52 51 30 54 второй массив: 76 36 44 39 68 38 объединенный массив, отсортированный по невозрастанию 76 68 57 56 54 52 51 44 41 39 38 36 30 14 2. на самом деле эту же можно написать гораздо короче // pascalabc.net 3.1, сборка 1246 от 23.05.2016 begin var n1,n2,x,y: integer; write('кол-во элементов в массиве и границы интервала из значений: '); read(n1,x,y); var a: =arrrandom(n1,x,y); write('кол-во элементов в массиве и границы интервала из значений: '); read(n2,x,y); var b: =arrrandom(n2,x,y); write('первый массив: '); a.println; write('второй массив: '); b.println; writeln('объединенный массив, отсортированный по невозрастанию'); var c: =(a+b).sorteddescending; c.println end.

olya2399

Информатика

4,5(79 оценок)

подщелдпел глирб и сказал что в бургер ушел в отпуск

Объяснение:

поэтому после этого урока в этих школы

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.