Дана целочисленная квадратная матрица найти сумму - вопрос №4055891 от zozoshcka17 15.03.2023 20:40

Question

Информатика: Дана целочисленная квадратная матрица найти сумму элементов, стоящих выше главной диагонали надо вот эту программу исправить 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:

zozoshcka17 · Answer

Var x:array [1..32000,1..32000] of integer;
n,s,i,j:integer;
begin
writeln('n=');
readln(n);
writeln('vvedite massiv=');
for i:=1 to n do
begin
for j:=1 to n do
begin
read(x[i,j]);
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.