Кто может решить по паскалю? 1)даны числа a1, получить в порядке возрастания (в новом массиве) все различные числа, входящие в a1,. 2)даны два набора чисел c1, cn и d1, d2, dm. соединить их в один массив f (только написать нужно чтобы числа в массив вводились вручную, а не рандоные)

125

347

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

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

muravyov1910

Информатика

4,4(72 оценок)

// pascalabc.net 3.3, сборка 1540 от 16.09.2017 // внимание! если программа не работает, обновите версию! begin var a: =readarrinteger(readinteger('n=')); var b: =a.distinct.orderby(x-> x).toarray; b.println end. пример n= 7 3 -5 6 3 3 4 1 -5 1 3 4 6 begin var n1: =readinteger('длина первого массива-'); var c: =readseqinteger('вводите массив: ',n1).orderby(x-> x).toarray; var n2: =readinteger('длина второго массива-'); var d: =readseqinteger('вводите массив: ',n2).orderby(x-> x).toarray; //собственно слияние var f: =new integer[n1+n2]; var (ic,id,& if): =(0,0,0); repeat if c[ic]< d[id] then begin f[& if]: =c[ic]; ic+=1 end else begin f[& if]: =d[id]; id+=1 end; & if+=1 until (ic=n1) or (id=n2); if ic=n1 then repeat f[& if]: =d[id]; id+=1; & if+=1 until id=n2 else repeat f[& if]: =c[ic]; ic+=1; & if+=1 until ic=n1; write('массив f: '); f.println(',') end. пример длина первого массива- 6 вводите массив: 4 0 -3 6 4 2 длина второго массива- 5 вводите массив: 3 6 -3 0 2 массив f: -3,-3,0,0,2,2,3,4,4,6,6

Midjdjidjdjxjd

Информатика

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

На языке pascal; program main; var a, b: integer; begin readln(a, b); if a> b then begin a: =a*a; b: =b*b*b; writeln('a=',a,' b=',b); end else begin if a begin a: =a*a*a; b: =b*b; writeln('a=',a,' b=',b); end else writeln('введены равные числа'); end; readln; end.

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

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

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

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

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

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

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

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

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

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