Дано два одномерных массива a и b. заменить местами максимальные элементы массивов a и b. использовать процедуру нахождения максимального элемента массива. преобразовать эту программу для двумерного массива.

290

483

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

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

panoli2007

Информатика

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

//pascal abc.net v3.1 сборка 1172 //одномерные const n=10; type ty=array[1..n] of integer; var ara,arb: ty; i,j,max,maxia,maxib: integer; procedure maxs(ar: ty; var max,maxi: integer); var i: integer; begin for i: =1 to n do if max< ara[i] then begin maxi: =i; max: =ar[i]; end; end; begin randomize; max: =-1; writeln('array a: '); for i: =1 to n do begin ara[i]: =random(100); write(ara[i]: 4); end; maxs(ara,max,maxia); writeln; max: =-1; writeln('array b: '); for i: =1 to n do begin arb[i]: =random(100); write(arb[i]: 4); end; maxs(arb,max,maxib); j: =ara[maxia]; ara[maxia]: =arb[maxib]; arb[maxib]: =j; writeln; writeln('final array a: '); for i: =1 to n do write(ara[i]: 4); writeln; writeln('final array b: '); for i: =1 to n do write(arb[i]: 4); end. //двумерные const n=10; type ty=array[1..n,1..n] of integer; var ara,arb: ty; i,j,max,maxia,maxib,maxja,maxjb: integer; procedure maxs(ar: ty; var max,maxi,maxj: integer); var i,j: integer; begin for i: =1 to n do for j: =1 to n do if max< ara[i,j] then begin maxi: =i; maxj: =j; max: =ar[i,j]; end; end; begin randomize; max: =-1; writeln('matrix a: '); for i: =1 to n do begin writeln; for j: =1 to n do begin; ara[i,j]: =random(100); write(ara[i,j]: 4); end; end; maxs(ara,max,maxia,maxja); writeln; max: =-1; writeln('matrix b: '); for i: =1 to n do begin writeln; for j: =1 to n do begin; arb[i,j]: =random(100); write(arb[i,j]: 4); end; end; maxs(arb,max,maxib,maxjb); j: =ara[maxia,maxja]; ara[maxia,maxja]: =arb[maxib,maxjb]; arb[maxib,maxjb]: =j; writeln; writeln('final matrix a: '); for i: =1 to n do begin writeln; for j: =1 to n do write(ara[i,j]: 4); end; writeln; writeln('final matrix b: '); for i: =1 to n do begin writeln; for j: =1 to n do write(arb[i,j]: 4); end; end. пример работы(одномерный): array a: 11 83 41 30 0 23 14 41 93 66array b: 53 40 58 40 56 17 98 33 90 6final array a: 11 83 41 30 0 23 14 41 90 66final array b: 53 40 58 40 56 17 98 33 93 6

Rarete

Информатика

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

19 (10cc)=16+2+1=10011 (10cc) 31 (10cc)= 32-1 =11111 (2cc); ! 31=00000 31 | ! 31=11111 19& 31 | 19& ! 31= 19& (31 | ! 31)=19=10011 15 (10cc)=16-1=1111 (2cc) 15|15& 19= 1111 |1111 & 10011=1111 31& (15 | 15& 19)=11111 & 1111=1111 19^19=10011 ^10011 =00000 23=16+4+2+1=10111 (2cc) 00000^10111=10111 10111 | 1111=11111 (2cc) = 31 (10cc) ответ 31

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

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

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

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

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

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

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

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

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

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