Обработка матрицы

[J0n1cK]

Помогите плиз.

Дана квадратная матрица M. Заменить нулями элементы лежащие выше главной диагонали.

[Sazary]

И в чем проблема? Где ваши наработки?

for i:=1 to M do 
 for j:=i+1 to M do
  matr[i,j] := 0;

[Gongled]

Sazary, если я не ошибаюсь, то главная диагональ, это i = j.
Следовательно, чтобы понулить элементы выше, необходимо сделать следующее:

for i:=1 to m do
begin
    for j:=1 to m do
    begin
        if i<j then a[i,j] := 0;
        write(matr[i,j]:4);
    end;
writeln;
end;

[Sazary]

Gongled, чтобы получить элементы выше главной диагонали, не обязательно проходиться по всей матрице. Достаточно цикла, который я написал.

[Gongled]

Sazary, в цикле нулями становятся элементы массива выше побочной диагонали. Прикрепляю вложение, чтобы подтвердить.

[Sazary]

Сообщение от Gongled

в цикле нулями становятся элементы массива выше побочной диагонали. Прикрепляю вложение, чтобы подтвердить.

А вы не заметили, что выводите только элементы, которые выше главной диагонали? )
Вот они и выставились так, как будто обнуляются элементы выше побочной.
Выводите матрицу отдельным циклом и все будет как надо.

Задача была:

Заменить нулями элементы лежащие выше главной диагонали.

Вот я и заменил. Про вывод ни слова.

[Gongled]

Прошу прощения, я ошибся. Надо было сразу трассировку сделать.
Спасибо, что потратили время. Глупо как-то вышло.