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;