Выяснить, все ли элименты двухмерного массива A(p,q) различны

@boobs7107 · Регистрация: 23.04.2013

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

@boobs7107 · 26.04.2013, 09:03 **[ТС]**

...

echs · 03.06.2016, 18:37

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

QBasic/QuickBASIC

CLS
RANDOMIZE TIMER
CONST p = 4
CONST q = 6
DIM a(1 TO p, 1 TO q) AS INTEGER
 
FOR i = 1 TO p
FOR j = 1 TO q
   a(i, j) = 240 * RND
   PRINT USING " ####"; a(i, j);
NEXT j: PRINT
NEXT i: PRINT
 
FOR i = 1 TO p
FOR j = 1 TO q
FOR k = 1 TO p
FOR l = 1 TO q
   IF a(i, j) = a(k, l) THEN z = z + 1
NEXT l, k, j, i
 
IF z = p * q THEN PRINT "YES" ELSE PRINT "NO"
END

@boobs7107 0 / 0 / 0 Регистрация: 23.04.2013 Сообщений: 12
		1
	Выяснить, все ли элименты двухмерного массива A(p,q) различны 23.04.2013, 17:12. Показов 1361. Ответов 2 Метки нет (Все метки) Выяснить, все ли элименты двухмерного массива A(p,q) различны 0

@boobs7107 0 / 0 / 0 Регистрация: 23.04.2013 Сообщений: 12
	26.04.2013, 09:03 [ТС]	2
	... 0

	03.06.2016, 18:37

Выяснить, все ли элименты двухмерного массива A(p,q) различны

Решение