СРОЧНО 40 Баллов!!! Нужно изменить программу так, чтобы все числа в матрице ниже главной...

Question

СРОЧНО 40 Баллов!!! Нужно изменить программу так, чтобы все числа в матрице ниже главной диагонали заменялись на единицы.Программа: program nol; const n=5; var a:array [1..n,1..n] of integer; var i,j:integer; begin randomize; for i:= 1 to n do begin for j:=1 to n do begin a[i,j]:=random(100); end; writeln; end; for i:=1 to n do for j:=i+1 to n do a[i,j]:=0; writeln('Матрица:'); for i:=1 to n do begin for j:=1 to n do write(a[i,j]:5); writeln; end; end.

Answer 1

В программе нужно заменить в цикле след. строки :

for i:=1 to n do

for j:=i+1 to n do a[i,j]:=0;

заменить на строки

for i:=2 to n do

for j:=1 to i-1 do a[i,j]:=1;