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

@Незнайкая · Регистрация: 23.11.2016

Здравствуйте, помогите решить задачу: дана действительная квадратная матрица порядка 12. Заменить нулями все ее элементы, расположенные на главной диагонали.

@Puporev · 26.11.2016, 11:50

Pascal

const n=12;
var a:array[1..n,1..n] if integer;
     i,j:byte;
begin
..............................................
for i:=1 to n do
a[i,i]:=0;
..............................................

@Незнайкая · 04.12.2016, 13:09 **[ТС]**

Извините, не могли бы вы расписать?

@Puporev · 04.12.2016, 13:17

Pascal

const n=12;
var a:array[1..n,1..n] of integer;
    i,j:byte;
begin
randomize;
writeln('Исходная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10+random(90);
    write(a[i,j]:3);
   end;
  writeln;
 end;
for i:=1 to n do
a[i,i]:=0;
writeln('Измененная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
end.

@Незнайкая · 04.12.2016, 14:00 **[ТС]**

в матрице числа располагает, а на нули не менят

@Puporev · 04.12.2016, 14:07

Сообщение от Незнайкая

а на нули не менят

А это уж откуда руки растут, у меня так.

@Незнайкая · 04.12.2016, 14:11 **[ТС]**

а все самому дошло, спасибо за подсказку

Добавлено через 1 минуту
я переписал основу не много, и на изи вышло

@Незнайкая 0 / 0 / 0 Регистрация: 23.11.2016 Сообщений: 16
		1
	Заменить нулями все элементы матрицы, расположенные на главной диагонали 25.11.2016, 21:45. Показов 1431. Ответов 6 Метки нет (Все метки) Здравствуйте, помогите решить задачу: дана действительная квадратная матрица порядка 12. Заменить нулями все ее элементы, расположенные на главной диагонали. 0

@Незнайкая 0 / 0 / 0 Регистрация: 23.11.2016 Сообщений: 16
	04.12.2016, 13:09 [ТС]	3
	Извините, не могли бы вы расписать? 0

@Незнайкая 0 / 0 / 0 Регистрация: 23.11.2016 Сообщений: 16
	04.12.2016, 14:00 [ТС]	5
	в матрице числа располагает, а на нули не менят 0

@Puporev Почетный модератор 64275 / 47574 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	04.12.2016, 14:07	6
	Сообщение от Незнайкая а на нули не менят А это уж откуда руки растут, у меня так. Миниатюры 0

@Незнайкая 0 / 0 / 0 Регистрация: 23.11.2016 Сообщений: 16
	04.12.2016, 14:11 [ТС]	7
	а все самому дошло, спасибо за подсказку Добавлено через 1 минуту я переписал основу не много, и на изи вышло 0

Опции темы

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

Решение