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.
В программе нужно заменить в цикле след. строки :
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;