Решите, , на паскале. найти среднее арифметической каждой строки в двумерном массиве и скинуть в новый массив.

131

407

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

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

ammaa09

Информатика

4,6(76 оценок)

Const n = 5; var a: array[1..n, 1..n] of integer; b: array[1..n] of real; i, j, k: integer; begin //считываем матрицу for i: =1 to n do for j: =1 to n do readln(a[i, j]); //находим среднее для каждой строки //и заполняем ими массив b for i: =1 to n do begin k: =0; for j: =1 to n do k: =k+a[i,j]; b[i] : = k/n; end; //вывод массива b for i: =1 to n do writeln(b[i]); end.

vika2006sa

Информатика

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

13(10) = 31(4) 14(10) = 32(4) 15(10) = 33(4) 16(10) = 100(4) 17(10) = 101(4) 18(10) = 102(4) 19(10) = 103(4) 20(10) = 110(4) 21(10) = 111(4) 22(10) = 112(4) 23(10) = 113(4) считаем все тройки, получаем 6