Матрицы(Pascal)

[Polusha]

Дана квадратная матрица порядка М. Обнулить элементы матрицы, лежащие на побочной диагонали и ниже неё.

[Alex Cones]

http://www.programmersforum.ru/showthread.php?t=70310

[vasermantolik]

решу задачку чайнику стучи ISQ 597695502 или пиши Варерману Толику!
vasermantolik@yandex.ru

[Анатоль]

элементы которые лежат на побочной диагонали и ниже её выглядят так:
for i := 1 to n do
for j := 1 to n do
if i > j then
M[i,j] := 0;
ВСЯ ПРОГА.

[eoln]

Сообщение от Анатоль

элементы которые лежат на побочной диагонали и ниже её выглядят так:
for i := 1 to n do
for j := 1 to n do
if i > j then
M[i,j] := 0;
ВСЯ ПРОГА.

Полностью несогласен!!!
1 1 1 0
1 1 0 0
1 0 0 0
0 0 0 0
M[1,2] (или M[2,1] если столбцы и строки наоборот) вовсе не должны обнуляться.

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

[Alex_FF]

const
  Q = 5;
var
  I, J: Integer;
  M: Array[1..Q, 1..Q] of Integer;
begin
  Randomize;
  for I := 1 to Q do
    for J := 1 to Q do
      M[I, J] := Random(10);

  for I := 1 to Q do
  begin
    for J := 1 to Q do
      Write(M[I, J], ' ');
    WriteLn;
  end;

  for I := 1 to Q do
    for J := 1 to Q do
      if Q - J < I then M[I, J] := 0;

  WriteLn;
  for I := 1 to Q do
  begin
    for J := 1 to Q do
      Write(M[I, J], ' ');
    WriteLn;
  end;
  ReadLn;
end.

[Alex_FF]

Сообщение от Анатоль

элементы которые лежат на побочной диагонали и ниже её выглядят так:
for i := 1 to n do
for j := 1 to n do
if i > j then
M[i,j] := 0;
ВСЯ ПРОГА.

нет, не так, а вот так:

for I := 1 to N do
  for J := 1 to N do
    if N - J + 1= I then M[I, J] := 0;