Для какого из привиденных чисел ложно высказывание Не(число,у которого первая цифра четкая)или (число у которого третья цифра четкая
ответы
8182
1230
6812
3225

186

209

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

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

dasha5282

Информатика

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

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