Впаскале плз: сравнить 2 двумерных массива на наличие одинаковых элементов

185

401

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

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

мария1965

Информатика

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

// pascalabc.net 3.1, сборка 1201 от 18.03.2016 procedure mprint(c: char; a: array[,] of integer); begin writeln('матрица ',c); for var i: =0 to length(a,0)-1 do begin for var j: =0 to length(a,1)-1 do print(a[i,j]); writeln end end; begin var a: =matrixrandom(5,8,10,99); mprint('a',a); var b: =matrixrandom(7,6,10,99); mprint('b',b); var ja: =length(a,1)-1; var ib: =length(b,0)-1; var jb: =length(b,1)-1; for var i: =0 to length(a,0)-1 do for var j: =0 to ja do for var k: =0 to ib do for var l: =0 to jb do if a[i,j]=b[k,l] then writelnformat('a[{0},{1}]=b[{2},{3}]={4}', i+1,j+1,k+1,l+1,a[i,j]) end. тестовое решение: матрица a 52 57 83 46 95 73 98 43 40 81 73 72 27 47 56 98 95 88 92 46 92 14 66 97 33 80 56 73 23 33 33 26 21 17 66 29 38 51 71 90 матрица b 66 71 81 86 47 19 81 70 67 60 67 69 94 87 77 48 90 86 23 24 26 34 29 17 58 57 60 19 81 37 69 54 27 12 80 31 32 79 60 23 99 85 a[1,2]=b[5,2]=57 a[2,2]=b[1,3]=81 a[2,2]=b[2,1]=81 a[2,2]=b[5,5]=81 a[2,5]=b[6,3]=27 a[2,6]=b[1,5]=47 a[3,7]=b[1,1]=66 a[4,2]=b[6,5]=80 a[4,5]=b[4,1]=23 a[4,5]=b[7,4]=23 a[4,8]=b[4,3]=26 a[5,2]=b[4,6]=17 a[5,3]=b[1,1]=66 a[5,4]=b[4,5]=29 a[5,7]=b[1,2]=71 a[5,8]=b[3,5]=90

kuznecov16

Информатика

4,7(21 оценок)

Program array; const a=10; var mas: array [1..a]of integer; n,i,j,k,x: integer; begin writeln('исходный массив: '); for i: =1 to a do writeln(i); n: =1; writeln('отсортированный массив: '); while i> n do for i: =a downto n do writeln(i); end.

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

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

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

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

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

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

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

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

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

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