Заменить нулями все элементы матрицы, расположенные на главной диагонали и выше неё

@Auroraa · Регистрация: 22.12.2015

Ребят,помогите с одним вопросом.
Дана действительная квадратная матрица порядка 12. Заменить нулями все её элементы, расположенные на глав-ной диагонали и выше неё.
я задаю размерность матрицы,через рандомайз выдаю значения,но как заменить все её элементы на главной и выше?

echs · 13.05.2016, 21:16

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

QBasic/QuickBASIC

CLS
RANDOMIZE TIMER
CONST n = 12
DIM A(1 TO n, 1 TO n) AS INTEGER
 
FOR i = 1 TO n
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 n
FOR j = i TO n
   A(i, j) = 0
NEXT j, i
 
FOR i = 1 TO n
FOR j = 1 TO n
   PRINT USING "####"; A(i, j);
NEXT j: PRINT
NEXT i
 
END

@Auroraa 0 / 0 / 0 Регистрация: 22.12.2015 Сообщений: 4
		1
	Заменить нулями все элементы матрицы, расположенные на главной диагонали и выше неё 13.05.2016, 18:17. Показов 1733. Ответов 1 Метки нет (Все метки) Ребят,помогите с одним вопросом. Дана действительная квадратная матрица порядка 12. Заменить нулями все её элементы, расположенные на глав-ной диагонали и выше неё. я задаю размерность матрицы,через рандомайз выдаю значения,но как заменить все её элементы на главной и выше? 0

Опции темы

Заменить нулями все элементы матрицы, расположенные на главной диагонали и выше неё

Решение