Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.73/15: Рейтинг темы: голосов - 15, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 04.06.2009
Сообщений: 4

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

04.06.2009, 07:25. Показов 3086. Ответов 2
Метки нет (Все метки)

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

Добавлено через 33 секунды
помогите решить плз
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
04.06.2009, 07:25
Ответы с готовыми решениями:

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

Найти среднее арифметическое каждой строки матрицы и записать в вектор
найти среднее арифметическое каждой строки матрицы А . Сформировать из них вектор В 1 2,5 4,3 7,2 А = 0,3 ...

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

2
 Аватар для lexus_ilia
3067 / 727 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
04.06.2009, 07:35
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Держите:
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Program xa;
uses
  crt;
type
 matr=array [1..30,1..30] of real;
 
Procedure PrintMatr(b:matr;n:integer);
var
  i,j:integer;
begin
  Writeln;
  for i:=1 to n do
  begin
    for j:=1 to n do
      Write(b[i,j]:6:2);
    Writeln;
  end;
end;
 
var
  b:matr;
  n,i,j:integer;
  Average:real;
begin
  repeat
    clrscr;
    Writeln('VVedite ra3mernoCtb matPuL/bl');
    readln(n);
  until n>1;
  Writeln;
  Writeln('VVedite elemenTbl matpuL/bl');
  for i:=1 to n do
    for j:=1 to n do
    begin
      Write('B[' ,i, ',' ,j, ']=');
      readln(b[i,j]);
    end;
  clrscr;
  Writeln('MatpuL/a do u3menenui');
  PrintMatr(b,n);
  for i:=1 to n do
  begin
    Average:=0;
    for j:=1 to n do
      Average:=Average+b[i,j];
    b[i,i]:=Average/n;
  end;
  Writeln('MatpuL/a posle u3menenui');
  PrintMatr(b,n);
  readln;
end.
1
0 / 0 / 0
Регистрация: 04.06.2009
Сообщений: 4
04.06.2009, 07:40  [ТС]
спс
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
04.06.2009, 07:40
Помогаю со студенческими работами здесь

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

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

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

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

найти среднее арифметическое строки матрицы А сформировать из них вектор В
найти среднее арифметическое строки матрицы А сформировать из них вектор В 1 2,5 4,3 7,2 А= 0,3 -1 0 -0,5 ...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Модель заражения группы наркоманов
alhaos 17.04.2026
Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru