Дан массив в(n*m) ).элементы массива ввести случайным образом.найти сумму элементов в каждой строке, больших среднего арифметического элементов данной строки паскаль

259

288

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

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

Soechatko

Информатика

4,5(86 оценок)

// pascalabc.net 3.0, сборка 1128 begin var m: =readinteger('число строк: '); var n: =readinteger('число колонок'); var a: =matrixrandom(m,n,-10,20); writeln('сгенерированный массив'); for var i: =0 to m-1 do begin for var j: =0 to n-1 do write(a[i,j]: 4); writeln end; writeln('найденные суммы'); for var i: =0 to m-1 do begin var avg: =0.0; for var j: =0 to n-1 do avg+=a[i,j]; avg/=n; var s: =0; for var j: =0 to n-1 do if a[i,j]> avg then s+=a[i,j]; write(s,' ') end; writeln end. тестовое решение: число строк: 5 число колонок 7 сгенерированный массив 19 14 -6 -8 2 -3 11 2 -8 -9 18 6 -6 -9 -5 -1 2 -6 -6 15 -4 13 19 2 6 -10 5 15 13 1 0 -2 -8 20 18 найденные суммы 44 26 17 47 51