Матрица:Даны натуральное число 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.

Оцени полезность:

15   голосов , оценка 3.733 из 5
Похожие ответы