Заменить максимальные элементы каждой строки матрицы Q на соответствующие элементы массива B

@zimuch · Регистрация: 08.06.2015

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

Помогите сделать, не получается(
Изменить матрицу Q(4,4) заменив максимальные элементы каждого рядка на соответствующие элементы массива B(4).
Измененную матрицу вывести по рядкам на экран.

Заранее спасибо...

@Dr_Ozzz · 09.06.2015, 08:42

Как-то так.

QBasic/QuickBASIC

CLS
 
RANDOMIZE TIMER
 
DIM q(4, 4), b(4)
 
PRINT "Ishodnij massiv B:"
FOR i = 1 TO 4
 b(i) = INT(RND * 10) + 1
 PRINT b(i);
NEXT i
PRINT : PRINT
 
PRINT "Ishodhaya matritsa Q:"
FOR i = 1 TO 4
 FOR j = 1 TO 4
  q(i, j) = INT(RND * 10) + 1
  PRINT q(i, j);
 NEXT j
 PRINT
NEXT i
PRINT
 
FOR i = 1 TO 4
 max = 0: jmax = 0
 FOR j = 1 TO 4
  IF q(i, j) > max THEN max = q(i, j): jmax = j
 NEXT j
 q(i, jmax) = b(i)
NEXT i
 
PRINT "Izmenennaya matritsa Q:"
FOR i = 1 TO 4
 FOR j = 1 TO 4
  PRINT q(i, j);
 NEXT j
 PRINT
NEXT i

@zimuch 0 / 0 / 0 Регистрация: 08.06.2015 Сообщений: 1
		1
	Заменить максимальные элементы каждой строки матрицы Q на соответствующие элементы массива B 08.06.2015, 20:08. Показов 525. Ответов 1 Метки нет (Все метки) Помогите сделать, не получается( Изменить матрицу Q(4,4) заменив максимальные элементы каждого рядка на соответствующие элементы массива B(4). Измененную матрицу вывести по рядкам на экран. Заранее спасибо... 0

Опции темы