Найти среднее арифметическое значение каждой строки матрицы

14.02.2010, 23:41. **Показов** 1744. **Ответов** 3

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

Помогите пожалуйста.
дана матрица H=[hij] размером (p x q). p=3; q=5;
Найти среднее арифметическое значение каждой строки матрицы и результаты записать в одномерный массив HM.
не получается двойной цикл!

@Law[L]esS · 14.02.2010, 23:51

Pascal

const
 p = 3;
 q = 5;
var
 a: array[1..p,1..q] of integer;
 b: array[1..p] of real;
 i,j,sr:integer;
begin
 for i:= 1 to p do begin
   writeln;
   for j:= 1 to q do begin
     a[i,j]:= random(10);
     write(a[i,j]:3);
   end;
 end;
 writeln;
 writeln;
 for i:= 1 to p do begin
   sr:= 0;
   writeln;
   for j:= 1 to q do
   sr:= sr + a[i,j];
   b[i]:= sr/q;
   write(i,' stroka ',b[i]:3:1);
 end;
end.

15.02.2010, 12:13

спасибо, только мне нужно не случайные элементы вводить - у меня матрица своя дана.

Добавлено через 5 минут
0,6 0,8 3,6 3,1 3,4
2,1 4,1 0,2 -1,1 0,9
-1,7 3,2 2,9 8,7 1,6
тогда будет а:array [1..p, 1..q] of real; - так?
как тогда всё получится?

@Puporev · 15.02.2010, 12:57

Сообщение от aly

у меня матрица своя дана.

Тогда матрицу можно объявить как типизированную константу.

Pascal

const a:array[1..3,1..5] of real=((0.6, 0.8, 3.6, 3.1, 3.4),
                                (2.1, 4.1, 0.2, -1.1, 0.9), 
                                (-1.7, 3.2, 2.9, 8.7, 1.6));
var b: i,j,sr:integer;
        b: array[1..p] of real;
begin
...............................

Найти среднее арифметическое значение каждой строки матрицы

Решение

Решение

aly
	15.02.2010, 12:13	3
	спасибо, только мне нужно не случайные элементы вводить - у меня матрица своя дана. Добавлено через 5 минут 0,6 0,8 3,6 3,1 3,4 2,1 4,1 0,2 -1,1 0,9 -1,7 3,2 2,9 8,7 1,6 тогда будет а:array [1..p, 1..q] of real; - так? как тогда всё получится?

Опции темы