Дан массив размера 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]max then max:=a[i,i1];       if a[i,i1]