Каждый элемент главной диагонали заменить суммой всех других элементов этой строки.

@haskeee · Регистрация: 09.02.2014

@Puporev · 02.03.2014, 15:24

Pascal

for i:=1 to n do
 begin
  s:=0;
  for j:=1 to n do
  s:=s+a[i,j];
  a[i,i]:=s-a[i.i];
 end;

@haskeee 0 / 0 / 0 Регистрация: 09.02.2014 Сообщений: 9
		1
	Каждый элемент главной диагонали заменить суммой всех других элементов этой строки. 02.03.2014, 15:05. Показов 1243. Ответов 1 Метки нет (Все метки) Каждый элемент главной диагонали заменить суммой всех других элементов этой строки. 0

Опции темы

Решение