Матрица:Даны натуральное число n, действительная матрица размера n х 9. Найти среднее арифметическое: каждого из столбцов - Free Pascal
Формулировка задачи:
Даны натуральное число n, действительная матрица размера n х 9. Найти среднее
арифметическое: каждого из столбцов.
Решение задачи: «Матрица:Даны натуральное число n, действительная матрица размера n х 9. Найти среднее арифметическое: каждого из столбцов»
textual
Листинг программы
program dz; const m=9; var a:array[1..20,1..m]of Real; i,j,n:Integer; s,sr:Real; begin Write('Количество строк,n='); Readln(n); Writeln('Введите элементы матрицы:'); for i:=1 to n do for j:=1 to m do begin Write('a[',i,',',j,']='); Readln(a[i,j]); end; Writeln('Заданная матрица:'); for i:=1 to n do begin for j:=1 to m do Write(a[i,j]:0:2,' '); Writeln; end; for j:=1 to m do begin s:=0; for i:=1 to n do s:=s+a[i,j]; sr:=s/n; Writeln('Среднее арифметическое ',j,'-го столбца:',sr:0:8); end; Readln; end.