вещественная матрица размером n×m. Заменить нулями все ее элементы, расположенные на главной диагонали и выше нее ( делфи 7 )

[evgenia 1992]

Задана вещественная матрица размером n×m. Заменить нулями все ее элементы, расположенные на главной диагонали и выше нее. помогите решить пожалуйста



1) для учебных задач предназначени раздел форума "Помощь студентам"

2) Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.

Прошу учесть на будущее...

Модератор.

[BDA]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  n,m,i,j:integer;
  a:array[1..1000,1..1000] of real;


begin
  write('Vvedite razmeri matrici (n,m): ');
  readln(n,m);
  for i:=1 to n do
    for j:=1 to m do
    begin
      write('a[',i,',',j,']= ');
      readln(a[i,j]);
    end;
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:5:2);
  writeln;
  end;
  writeln;
  for i:=1 to n do  //
    for j:=i to m do// заполнение нулями
      a[i,j]:=0;    //
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:5:2);
  writeln;
  end;
  readln;
end.