// pascalabc.net 3.3, сборка 1555 от 21.10.2017 // внимание! если программа не работает, обновите версию! begin writeln('*** исходная матрица ***'); var a: =matrrandom(10,10,-99,99); a.println(4); writeln(4*a.colcount*'-'); var s: =a.elementswithindexes; var sumdiag: =s.where(x-> x[1]=x[2]).sum(x-> x[0]); writeln('сумма элементов на главной диагонали ',sumdiag); writeln('искомое количество элементов ',s.where(x-> x[0]< sumdiag/15).count) end. пример *** исходная матрица *** 35 15 -56 -90 -87 -60 -82 -4 -72 9 -9 -48 -45 -62 -48 95 57 -26 12 68 34 72 10 -6 -12 15 -68 -11 -92 70 -68 -52 -12 36 -61 -53 -82 18 -93 34 87 89 -39 -87 67 -45 95 -77 -10 56 -48 99 62 44 16 62 -95 49 22 -3 -92 28 -12 -42 -23 -57 63 18 98 -94 77 -61 -33 77 80 45 12 -3 26 -67 20 -91 99 -49 18 -68 -14 43 -79 -23 -58 -31 96 10 26 -40 1 -97 35 25 сумма элементов на главной диагонали 168 искомое количество элементов 57
fermproddk
14.11.2020
Pascalabc.net 3.3 под девизом"памяти наших дедов " const n=10; var a: array[1..n,1..n] of integer; i,j,sumdiag,k: integer; p: real; begin writeln('*** исходная матрица ***'); randomize; sumdiag: =0; for i: =1 to n do begin for j: =1 to n do begin a[i,j]: =random(199)-99; if i=j then sumdiag: =sumdiag+a[i,j]; write(a[i,j]: 4) end; writeln end; for i: =1 to 4*n do write('-'); writeln; writeln('сумма элементов на главной диагонали ',sumdiag); p: =sumdiag/15; k: =0; for i: =1 to n do for j: =1 to n do if a[i,j]< p then k: =k+1; writeln('искомое количество элементов ',k) end. пример *** исходная матрица *** 95 37 30 21 83 -99 48 -40 49 -19 -66 -82 88 -24 70 14 -88 11 60 14 -72 -80 90 25 68 23 91 66 -54 52 33 16 25 -72 85 58 -39 44 8 -29 8 78 -79 51 50 -61 -13 -87 87 66 63 -45 94 -48 59 76 46 -94 53 -40 -90 81 -85 96 47 18 -8 61 -10 -87 -47 -33 -97 -10 -93 -51 98 -60 74 30 -63 78 79 -21 89 -21 21 -26 -31 -91 -88 -45 91 -51 -39 26 64 -75 -96 -67 сумма элементов на главной диагонали -9 искомое количество элементов 46
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Сколько байт информации содержит сообщение объемоом 0, 25 кбайт? в ответе укажите одно число.