Pascal abc net составить матрицу 10х10, заполненную случайным образом посчитать сумму элементов главной диагонали определить количество элементов < сумма/15

158

461

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

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

Ничегосебеденёк

Информатика

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

// 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