Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
1 / 1 / 0
Регистрация: 19.01.2021
Сообщений: 11
1

Найти среднее арифметическое положительных элементов главной диагонали матрицы

19.01.2021, 20:11. Просмотров 1331. Ответов 1
Метки нет (Все метки)

Нужна помощь.

Найти среднее арифметическое всех положительных элементов главной диагонали матрицы AA{n, n}. (n=5 )
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.01.2021, 20:11
Ответы с готовыми решениями:

Найти среднее арифметическое всех отрицательных элементов главной диагонали матрицы AB {m, m}
Найти среднее арифметическое всех отрицательных элементов главной диагонали матрицы AB {m, m}

Найти среднее арифметическое положительных элементов строки матрицы, в которой расположен min элемент главной диагонали
Помогите пожалуйста решить следующую задачу:

Среднее арифметическое положительных элементов, стоящих на главной диагонали матрицы
Вычислить среднее арифметическое положительных элементов, стоящих нв главной диагонали матрицы...

Определить среднее арифметическое положительных элементов главной диагонали матрицы
|1 0 -1 2| |2 3 -4 5| С=|2 -1 -1 1| |4 0 2 2|

1
Модератор
8325 / 4098 / 2846
Регистрация: 17.08.2012
Сообщений: 13,090
19.01.2021, 20:45 2
Лучший ответ Сообщение было отмечено Incognito0202 как решение

Решение

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
const
  n = 5;
var
  aa: array[1..n, 1..n] of integer;
  i, j, k: integer;
  sa: real;
begin
  k := 0;
  sa := 0;
  randomize;
  writeln('Матрица AA:');
  for i := 1 to n do
    begin
      for j := 1 to n do
        begin
          aa[i,j] := -99 + random(199);
          write(aa[i,j]:4);
          if (i = j) and (aa[i,j] > 0) then
            begin
              inc(k);
              sa := sa + aa[i,j]
            end
        end;
      writeln
    end;
  if k > 0 then writeln('Среднее арифметическое положительных элементов главной диагонали = ', sa/k:0:5)
  else writeln('На главной диагонали ет положительных элементов');
  readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.01.2021, 20:45

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Вычислить сумму и среднее арифметическое положительных элементов главной диагонали матрицы X (n,m)
Помогите пожалуйста ;)

Определить среднее арифметическое положительных элементов матрицы, лежащих выше главной диагонали
Добрый вечер! Задана матрица (m,n) m<=17, n<=17.Поменять местами 1-ую и последнюю,2-ую и...

Найти среднее арифметическое среди положительных элементов главной диагонали
Дана квадратная матрица порядка n(n=5). Найти среднее арифметическое среди положительных элементов...

Найти среднее арифметическое всех положительных чисел выше главной диагонали квадратной матрицы
Всем привет! Задача заключается в следующем: Найти среднее арифметическое всех положительных чисел...

Найти среднее арифметическое положительных элементов матрицы, лежащих выше главной диагонали.
Разработать блок-схему алгоритма и программу в среде матлаб для нахождения среднего арифметического...

Даны матрицы A(n,n), B(k,k), C(r,r). Найти среднее арифметическое положительных элементов главной диагонали и индекс вто
Даны матрицы A(n,n), B(k,k), C(r,r). Найти среднее арифметическое положительных элементов главной...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.