Дан массив x целых чисел. исключить из него все числа, встречающиеся более двух раз(если такие имеются). затем числа, стоящие на четных местах, упорядочить по невозрастаниюпрограмма необходима на языке pascal

223

232

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

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

Даша1444444

Информатика

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

Uses crt; const nmax=100; var x: array[1..nmax] of integer; n,m,i,j,k,a,p: integer; begin clrscr; randomize; repeat write('размер массива от 2 до ',nmax,' n='); readln(n); until n in [2..nmax]; writeln('исходный массив: '); for i: =1 to n do begin x[i]: =random(10); write(x[i]: 4); end; writeln; i: =1; m: =n; while i< n-1 do begin k: =1; a: =x[i]; for j: =n downto i+1 do if x[j]=a then k: =k+1; if k> 2 then begin j: =i; while j< =n do if x[j]=a then begin if j=n then n: =n-1 else begin for p: =j to n-1 do x[p]: =x[p+1]; n: =n-1; end; end else j: =j+1; end else i: =i+1; end; if n=0 then begin exit end; if n=m then write('все элементы встречены не более 2 раз и не удалены') else begin for i: =1 to n do write(x[i]: 4); for i: =1 to n-1 do for j: =i+1 to n do if(i mod 2=0)and(j mod 2=0) and(x[i]< x[j]) then begin a: =x[i]; x[i]: =x[j]; x[j]: =a; end; for i: =1 to n do write(x[i]: 4); end;

камила20053

Информатика

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

hex(2)-oct(33)*bin()/bin(101) = hex: -75

hex(15)+oct(7)+(9) = bin: 0010 0101

hex(100)+oct(100)+bin(100) = 324

hex(16)+oct(16) = hex: 24

hex(100)-oct(10)-bin(1) = hex: f7 = bin: 1111 0111

(21)+oct(11)-bin(1001) = bin: 0001 0101 = oct: 25 =21 = hex: 15

вообще есть такой хороший калькулятор hexelon. он все это хорошо считает и удобно. рекламирую)

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

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

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

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

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

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

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

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

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

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