Найти минимальный элемент матрицы и указать его координаты

@Vladq · Регистрация: 28.09.2014

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

Две задачи: по одномерным и двумерным.
1. (одномерные) Заданы массивы A1, A2,...,A10 и C1, C2,...,C10 и число P. Построить ряд D, содержащий A(i) и C(i) меньше заданного P.
2. (двумерные) Дана матрица n*n. Найти минимальный элемент матрицы и указать его координаты.
З.Ы. Если что - отблагодарю.

@Lyohich84 · 10.06.2010, 11:59

1:

PureBasic

CLS
n = 10
DIM a(n), c(n)
RANDOMIZE TIMER
FOR i = 1 TO n
 a(i) = INT(RND * 101) - 50
NEXT
FOR i = 1 TO n
 c(i) = INT(RND * 101) - 50
NEXT
PRINT "Massiv a(10)"
FOR i = 1 TO n
 PRINT a(i);
NEXT
PRINT : PRINT
PRINT "Massiv c(10)"
FOR i = 1 TO n
 PRINT c(i);
NEXT
PRINT : PRINT
INPUT "Vvedite chislo P="; p
PRINT
k = 0
FOR i = 1 TO n
 IF a(i) < p THEN k = k + 1
 IF c(i) < p THEN k = k + 1
NEXT i
IF k > 0 THEN
 DIM d(k)
 k = 0
 FOR i = 1 TO n
  IF a(i) < p THEN k = k + 1: d(k) = a(i)
  IF c(i) < p THEN k = k + 1: d(k) = c(i)
 NEXT i
 PRINT "Ryad d"; "("; k; ")"
 FOR i = 1 TO k
  PRINT d(i);
 NEXT i
ELSE
 PRINT "Vse elementi massiva a(10) i b(10)>"; p
END IF

2-ая задача решалась не раз

PureBasic

...
min=a(1,1): imin=1: jmin=1
FOR i=1 TO n
 FOR j=1 TO n
  IF a(i,j)<min THEN min=a(i,j): imin=i: jmin=j
 NEXT j
NEXT i
PRINT "Minimalniy element=";min; "ego koordinati: (";i; ",";j; ")"

@Vladq 0 / 0 / 0 Регистрация: 28.09.2014 Сообщений: 8
		1
	Найти минимальный элемент матрицы и указать его координаты 09.06.2010, 20:56. Показов 1318. Ответов 1 Метки нет (Все метки) Две задачи: по одномерным и двумерным. 1. (одномерные) Заданы массивы A1, A2,...,A10 и C1, C2,...,C10 и число P. Построить ряд D, содержащий A(i) и C(i) меньше заданного P. 2. (двумерные) Дана матрица n*n. Найти минимальный элемент матрицы и указать его координаты. З.Ы. Если что - отблагодарю. 0

	10.06.2010, 11:59

Опции темы

Найти минимальный элемент матрицы и указать его координаты

Решение