Дан массив размера n x n. Найдите сумму, минимальный и максимальный из
его элементов, расположенных над главной и над побочной диагоналями
(элементы обеих диагоналей включить в рассмотрение)

Решение во вложенииТакая задача уже была раньше

Пусть уже ответили, не пропадать же работе даром))program test;var  a:array[1..10,1..10] of integer;  min,max,i,i1,sum,sum2:integer;begin  for i:=1 to 10 do begin      for i1:=1 to 10 do begin          a[i,i1]:=random(1,100);          write(a[i,i1]:4);      end;      writeln;  end;  writeln('ГЛАВНАЯ ДИАГОНАЛЬ');  min:=a[1,1];  for i:=1 to 10 do begin    for i1:=i to 10 do begin      sum:=sum+a[i,i1];      if a[i,i1]>max then max:=a[i,i1];      if a[i,i1]<min then min:=a[i,i1];    end;  end;  writeln('сумма ',sum);  writeln('Максимальное ',max);  writeln('Минимальное ',min);  sum:=0;  writeln('ПОБОЧНАЯ ДИАГОНАЛЬ');  min:=a[1,1];  for i:=10 downto 1 do begin    for i1:=1 to i do begin      sum:=sum+a[i,i1];      if a[i,i1]>max then max:=a[i,i1];      if a[i,i1]<min then min:=a[i,i1];    end;  end;  writeln('сумма ',sum);  writeln('Максимальное ',max);  writeln('Минимальное ',min);end.