Пожалуйста помогите , безотлагательно Дана матрица 7х7 частей Обнулить все её

а программку где вы пишите?

Паскаль

Если элемент стоит выше основной диагонали, то его номер столбца больше, чем номер строчки.
Программка будет такая:
PROGRAM Matrix77
var A: array [1..7][1..7] of real; // Объявляем переменные
var i, j: integer
BEGIN
crt;
for i:= 1 to 7 do
begin
for j:=1 1 to 7 do read (A[i][j]); // Вводим исходный массив
readln;
end;
for i:= 1 to 7 do
begin                     // Проверяем, что элемент выше диагонали
for j:=1 1 to 7 do if j gt; i then A[i][j]:=0; // Обнуляем его
end;
for i:= 1 to 7 do
begin
for j:=1 1 to 7 do write (A[i][j]); // Выводим окончательный массив
writeln;
end;
END.