Выберите отношение,в котором есть понятия: а.птицы,земноводные,млекопитающие и животные.б.горячая вода и холодная вода.в.москва и столица россии

100

256

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

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

ольга240387

Информатика

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

Ядумаю ответ в. москва и столица россии

sasha20083

Информатика

4,8(68 оценок)

Type m = array[,] of integer; procedure swap(var a: m; i: integer; j: integer); //обменивает местами элементы массива a[i,i] и a[i,j] var buff: integer; begin if i < > j then begin buff : = a[i, i]; a[i, i] : = a[i, j]; a[i, j] : = buff end end; function getcolmin(a: m; i: integer): integer; // возвращает номер столбца, в котором найден минимальный элемент // по строке с номером i, т.е. a[i,? ]=min var j, vmin, jm: integer; begin vmin : = 32766; for j : = 0 to length(a, 1) - 1 do if vmin > a[i, j] then begin vmin : = a[i, j]; jm : = j end; result : = jm end; procedure swapmatrix(var a: m); // меняет местами в массиве a[n,n] минимальный по строке элемент с // элементом, лежащим на главной диагонали. // обращается к функции getcolmin и процедуре swap var i: integer; begin for i : = 0 to length(a, 0) - 1 do swap(a, i, getcolmin(a, i)) end; procedure writemas(a: m; title: string); // выводит заголовок, а потом массив построчно var i, j, n: integer; begin n : = length(a, 0) - 1; writeln(title); for i : = 0 to n do begin for j : = 0 to n do write(a[i, j]: 5); writeln end end; procedure createmas(var a: m; n: integer; p: integer; q: integer); // создает массив a[0..n-1,0..n-1] и заполняет его // данными используя датчик случайных чисел с мощностью "р" // и минимальным значением q var i, j: integer; begin randomize; setlength(a, n, n); for i : = 0 to n - 1 do for j : = 0 to n - 1 do a[i, j] : = random(p) + q end; const n1 = 3; n2 = 5; n3 = 8; var a, b, c: m; begin createmas(a, n1, 100, -50); writemas(a, 'исходный массив а'); swapmatrix(a); writemas(a, 'результирующий массив а'); createmas(b, n2, 300, -150); writemas(b, 'исходный массив b'); swapmatrix(b); writemas(b, 'результирующий массив b'); createmas(c, n3, 500, -250); writemas(c, 'исходный массив c'); swapmatrix(c); writemas(c, 'результирующий массив c'); end. тестовый прогон: исходный массив а 14 23 7 -50 31 36 -39 -43 -38 результирующий массив а 7 23 14 31 -50 36 -39 -38 -43 исходный массив b -91 6 -21 -139 -141 130 -99 44 131 143 93 5 97 -111 43 -113 15 125 88 31 -115 -39 27 124 144 результирующий массив b -141 6 -21 -139 -91 130 -99 44 131 143 93 5 -111 97 43 88 15 125 -113 31 144 -39 27 124 -115 исходный массив c -234 211 207 -131 151 -228 197 -163 147 5 180 -135 -181 217 -178 -3 178 -142 -149 -44 -195 -224 -187 -173 -24 62 28 -134 -11 -216 -59 83 62 -86 48 152 -44 -49 -218 92 91 -60 201 206 -160 -135 -131 77 161 -184 -204 113 -181 199 223 240 147 129 143 -162 -6 80 98 113 результирующий массив c -234 211 207 -131 151 -228 197 -163 147 -181 180 -135 5 217 -178 -3 178 -142 -224 -44 -195 -149 -187 -173 -24 62 28 -216 -11 -134 -59 83 62 -86 48 152 -218 -49 -44 92 91 -60 201 206 -135 -160 -131 77 161 -184 223 113 -181 199 -204 240 147 129 143 113 -6 80 98 -162

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

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

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

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

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

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

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

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

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

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