Массив: найти сумму всех элементов Cij для которых 2<Cij<3

10.04.2013, 20:11. **Показов** 1134. **Ответов** 1

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

найти сумму всех элементов Cij для которых 2<Cij<3

@Quiet Snow · 11.04.2013, 13:33

QBasic/QuickBASIC

CLS
i = 5
j = 3
DIM C(1 TO i, 1 TO j), S
RANDOMIZE TIMER
FOR y = 1 TO j
   FOR x = 1 TO i
      C(x, y) = RND * 6
NEXT x, y
FOR y = 1 TO j
   FOR x = 1 TO i
      COLOR 7
      IF C(x, y) > 2 AND C(x, y) < 3 THEN S = S + C(x, y): COLOR 11
      PRINT USING " #.### "; C(x, y);
   NEXT: PRINT
NEXT: COLOR 7
PRINT "Sum ="; S

rifat71
		1
	Массив: найти сумму всех элементов Cij для которых 2<Cij<3 10.04.2013, 20:11. Показов 1134. Ответов 1 Метки нет (Все метки) найти сумму всех элементов Cij для которых 2<Cij<3

	11.04.2013, 13:33

Массив: найти сумму всех элементов Cij для которых 2<Cij<3

Решение