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

@innal · Регистрация: 18.03.2014

В двумерном массиве A из m строк и n столбцов найти сумму всех элементов и заменить на нули элементы на главной диагонали.

@APALoff · 18.03.2014, 14:44

Pascal

S:=0;
For i:=1 to m do
 For j:=1 to n do
 Begin
   S:=S+Mas[i,j];
   If i=j then Mas[i,j]:=0;
 End;

@innal 0 / 0 / 0 Регистрация: 18.03.2014 Сообщений: 7
		1
	Найти сумму всех элементов матрицы и заменить на нули элементы на главной диагонали 18.03.2014, 13:27. Показов 1484. Ответов 1 Метки нет (Все метки) В двумерном массиве A из m строк и n столбцов найти сумму всех элементов и заменить на нули элементы на главной диагонали. 0

	18.03.2014, 14:44

Опции темы

Решение