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

@Люстик · Регистрация: 09.12.2010

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

дана матрица n*m . найти среднее арифметическое значение элементов матрицы m*m . построить вектор из минимальных элементов по строкам

@Quiet Snow · 16.03.2011, 14:27

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

PureBasic

CLS  '  Очистка экрана и ввод параметров матрицы
   INPUT "Vvedite kol-vo stolbcov: ", m
   INPUT "Vvedite kol-vo strok   : ", n
   '  Массивы
   DIM A(m, n), V(n)
  '  Заполним матрицу случ. числами
  FOR iy = 1 TO n: FOR ix = 1 TO m
      A(ix, iy) = RND * 10
      PRINT A(ix, iy);
  NEXT: PRINT : NEXT
  '  Среднее арифметическое (кол-во строк*��ол-во строк)
  FOR iy = 1 TO n: FOR ix = 1 TO n
    SrA = SrA + A(ix, iy)
  NEXT ix, iy
  SrA = SrA / (n * n)
  '  Построим вектор из min эл-тов по строкам
  FOR iy = 1 TO n: Min = A(1, iy)
  FOR ix = 2 TO m
    IF A(ix, iy) < Min THEN Min = A(ix, iy)
  NEXT: V(iy) = Min
  NEXT
  SrA = SrA / (n * n)
  '  Вывод результата
  PRINT "Srednee arifmeticheskoe: "; SrA
  FOR i = 1 TO n: PRINT V(i): NEXT

@Люстик 0 / 0 / 0 Регистрация: 09.12.2010 Сообщений: 8
		1
	Найти среднее арифметическое значение элементов матрицы 15.03.2011, 21:13. Показов 1419. Ответов 1 Метки нет (Все метки) дана матрица nm . найти среднее арифметическое значение элементов матрицы mm . построить вектор из минимальных элементов по строкам 0

	16.03.2011, 14:27

Опции темы

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

Решение