Заменить на 0 все элементы матрицы лежащие на главной диагонали и выше ее...

[Анастасия01]

дана матрица {Aij} i=j
Заменить на 0 все элементы матрицы лежащие на главной диагонали и выше ее...


Помогите пожалуйста.Решаю ее уже 2 недели,преподаватель все никак зачет не хочет ставить((((

буду безумно благодарна за помощь=)

[Kat.]

{заменить нулями все положительные элементы матрицы, находящиеся на главной диагонали и НИЖЕ её}

[CODE][PHP]uses crt;
type at=array [1..50,1..50] of integer;
var a:at;     i,j,n,l,max,sum : integer;
procedure nol(var a:at; n:integer);
var i,j,x:integer;
begin  for i:=1 to n do begin if a[i,i]>0 then a[i,i]:=0;
for j:=i+1 to n do
for x:=1 to j do a[j,x]:=0;
end; end;  begin   clrscr;
  write('Введите количество строк квадратной матрицы N*N N=');readln(n);   for i:=1 to n do
   for j:=1 to n do begin
     write('a[',i,',',j,']=');readln(a[i,j]); end; nol(a,n);   for i:=1 to n do  begin   writeln;    for j:=1 to n do Write(a[i,j]);  end ;    end.[/PHP][/CODE]

[Kat.]

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

[Mandrivnyk]

Эх... надо было на лекциях бывать хоть иногда...
Задачи-то простейшие.
C/C++

for (int i = 0; i < n; i++)
    for (int j = 0; j < n; j++)
        if (i <= j) a[i][j] = 0;

[Анастасия01]

я бы с удовольствием побыла на лекциях=) но увы заочное отделение не позволяет(

[Анастасия01]

Kat, была бы очень благодарна вам=)

[Mandrivnyk]

for I := 1 to N do
    for J := 1 to N do
        if (I <= J) then A[I][J] := 0;

Ввод/вывод и объявление/заполнение -- как в соседнем топике.


ЗЫ А вообще-то, есть прикрепленный топик в этой ветке -- Работа с матрицами и списками. Типичные задачи. Теория.
Там очень толково объясняется, на примерах.