Определить числа, равные наименьшим значениям элементов строк матрицы

@qlBasic · Регистрация: 15.01.2015

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

1. Дана действительная матрица размера m*n. Определить числа b1, b2,… bm равные соответственно наименьшим значениям элементов строк.

echs · 22.05.2016, 14:12

Программа проверена

QBasic/QuickBASIC

DECLARE FUNCTION MIN! (A!(), m!, n!)
CLS
OPTION BASE 1
RANDOMIZE TIMER
m = 4
n = 7
DIM A(m, n)
DIM b(m)
 
FOR i = 1 TO m
FOR j = 1 TO n
   A(i, j) = 20 * RND
   PRINT USING " ##.###"; A(i, j);
NEXT j: PRINT
NEXT i: PRINT
 
FOR i = 1 TO m
   b(i) = MIN(A(), i, n)
   PRINT USING " ##.###"; b(i)
NEXT i
END
 
FUNCTION MIN (A(), m, n)
   mini = A(m, 1)
 
   FOR j = 1 TO n
      IF mini > A(m, j) THEN mini = A(m, j)
   NEXT j
   MIN = mini
END FUNCTION

@qlBasic 0 / 0 / 0 Регистрация: 15.01.2015 Сообщений: 3
		1
	Определить числа, равные наименьшим значениям элементов строк матрицы 15.01.2015, 18:16. Показов 1570. Ответов 1 Метки нет (Все метки) 1. Дана действительная матрица размера m*n. Определить числа b1, b2,… bm равные соответственно наименьшим значениям элементов строк. 0

	22.05.2016, 14:12

Опции темы

Определить числа, равные наименьшим значениям элементов строк матрицы

Решение