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.

Nastya7654321    2   18.04.2019 20:11    0