Дана целочисленная квадратная матрица найти сумму элементов, стоящих выше главной диагонали на языке turbo pascal

206

485

Посмотреть ответы 2

Ответы на вопрос:

irinalika

Информатика

4,5(19 оценок)

const n=4; var x: array [1..n,1..n] of integer; s,i,j: integer; begin randomize; for i: =1 to n do begin for j: =1 to n do begin x[i,j] : = random(100); write(x[i,j]: 6); end; writeln; end; s: =0; for i: =1 to n do for j: =1 to n do if i< =j then s: =s+x[i,j]; writeln('s=',s); end.