aly
1

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

14.02.2010, 23:41. Показов 1841. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите пожалуйста.
дана матрица H=[hij] размером (p x q). p=3; q=5;
Найти среднее арифметическое значение каждой строки матрицы и результаты записать в одномерный массив HM.
не получается двойной цикл!
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.02.2010, 23:41
Ответы с готовыми решениями:

Найти среднее арифметическое каждой строки матрицы
Задача: Составьте программу вычисления среднего арифметического каждой строки матрицы В(N,N) и...

Найти среднее арифметическое положительных элементов каждой строки матрицы
2)Задана матрица A(M,N), где M<=25, N<=10. Определить средне арифметическое положительных элементов...

Найти среднее арифметическое каждой строки матрицы и записать в вектор
найти среднее арифметическое каждой строки матрицы А . Сформировать из них вектор В 1...

среднее арифметическое наименьших отрицательных элементов каждой строки матрицы
найти среднее арифметическое наименьших отрицательных элементов каждой строки матрицы FP{m;n}...

3
117 / 114 / 89
Регистрация: 31.10.2009
Сообщений: 191
14.02.2010, 23:51 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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.
1
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; - так?
как тогда всё получится?
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
15.02.2010, 12:57 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от aly Посмотреть сообщение
у меня матрица своя дана.
Тогда матрицу можно объявить как типизированную константу.
Pascal
1
2
3
4
5
6
7
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
...............................
1
15.02.2010, 12:57
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.02.2010, 12:57
Помогаю со студенческими работами здесь

Вычислить среднее арифметическое четных элементов каждой отдельной строки матрицы У(4, 5)
Вычислить среднее арифметическое четных элементов каждой отдельной строки матрицы У(4, 5).

Функция. Найти среднее арифметическое значение для каждой из матриц
С использованием функции: Даны две матрицы целых чисел M, К. Найти среднее арифметическое значение...

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

Определите среднее арифметическое элементов кратных 3, но не кратных 5 для каждой строки матрицы
народ помогите кто может.просто препод мне дал 50 заданий.нужно решить до конца мая.вот я сдал с...

Найти среднее арифметическое, наибольшее и наименьшее значение элементов матрицы
Дана веществ. матрица 6*9 найти среднее арифметическое наибольшее и наименьшее значение ее...

Найти среднее арифметическое значение положительных элементов матрицы и количество отрицательных
Задача 1 Заполнить двумерный массив размером 10х10 случайными числами из интервала от -12 до 12....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru