НУЖНО СОСТАВИТЬ ПРОГРАММУ на языке ПИТОН для данной блок схемы

276

368

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

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

karrr123

Информатика

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

// pascalabc.net 3.1, сборка 1250 от 28.05.2016 procedure matprint(a: array[,] of integer); begin for var i: =0 to length(a,0)-1 do begin for var j: =0 to length(a,1)-1 do write(a[i,j]: 4); writeln end end; procedure matswap(a: array[,] of integer); begin for var i: =0 to length(a,0)-1 do begin var jmin: =0; for var j: =1 to length(a,1)-1 do if a[i,j]< a[i,jmin] then jmin: =j; swap(a[i,jmin],a[i,length(a,1)-1]) end end; begin var a: =matrixrandom(6,6,-99,99); writeln('исходный массив'); matprint(a); matswap(a); writeln('результирующий массив'); matprint(a) end. тестовое решение: исходный массив -19 88 -17 20 36 -74 40 -88 84 54 34 -86 -13 -58 62 -55 -51 80 -46 -35 -86 -57 -84 -29 10 -55 -68 -49 12 78 29 -86 -19 17 -79 61 результирующий массив -19 88 -17 20 36 -74 40 -86 84 54 34 -88 -13 80 62 -55 -51 -58 -46 -35 -29 -57 -84 -86 10 -55 78 -49 12 -68 29 61 -19 17 -79 -86