Матрица:Даны натуральное число n, действительная матрица размера n х 9. Найти среднее арифметическое: каждого из столбцов

@Максим_макс · Регистрация: 12.03.2013

Author24 — интернет-сервис помощи студентам

Даны натуральное число n, действительная матрица размера n х 9. Найти среднее
арифметическое: каждого из столбцов.

Новичок · 05.05.2013, 19:29

Pascal

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.

@Максим_макс 1 / 1 / 2 Регистрация: 12.03.2013 Сообщений: 164
		1
	Матрица:Даны натуральное число n, действительная матрица размера n х 9. Найти среднее арифметическое: каждого из столбцов 05.05.2013, 18:44. Показов 7795. Ответов 1 Метки нет (Все метки) Даны натуральное число n, действительная матрица размера n х 9. Найти среднее арифметическое: каждого из столбцов. 0

	05.05.2013, 19:29

Матрица:Даны натуральное число n, действительная матрица размера n х 9. Найти среднее арифметическое: каждого из столбцов

Решение