Просуммировать элементы квадратной матрицы , расположенные - вопрос №1457192 от Gulya6922 17.01.2021 20:59

Question

Информатика: Просуммировать элементы квадратной матрицы , расположенные в верхней четверти, ограниченной главной и побочной диагоналями, включая элементы, расположенные на диагоналях. . если не трудно сделайте так: var a: array [1..10,1..100]of integer; m,n,i,j: integer; begin write ( вв m,n ); read(m,n); for i: =1 to n do for j: =1 to m do a[i,j]: = random (99); begin write ( a[i,j]: 4); end; writeln; я не знаю что в условии писать. как вообще проссумировать эти элементы : (

Gulya6922 · Answer

var
a:array [1..100,1..100]of integer;
n,i,j, Summ:integer;
begin
write ('n = ');
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
    a[i,j]:= random (99);
    write ( a[i,j]:4);
end;
writeln;
end;

Summ := 0;
for i := 1 to (n div 2 + n mod 2) do
    for j := i to n - i + 1 do
      Summ := Summ + a[i,j];

writeln('Summ = ', Summ);
readln;
end.