Дана целочисленная квадратная матрица найти сумму элементов, стоящих выше главной диагонали надо вот эту программу исправить program project2; {$apptype console} uses sysutils; var a: array of array of integer; n,i,j: integer; sum: real; begin writeln('vvedite n'); readln(n); setlength(a,n,n); writeln('vvedite a'); for i: =1 to n do for j: =1 to n do readln (a[i,j]); sum: =0; for i: =1 to n do for j: =1 to n do; begin if (j> i) then sum: =sum+a[i,j]; end; writeln; writeln; writeln('sum=',sum: 8: 3); readln; readln; readln; end.

ket95651    1   30.06.2019 22:10    0