Дана квадратная матрица действительных чисел. найти сумму модулей элементов, расположенных выше главной диагонали. в паскале написать это чудо!

Const nx = 20; mx = 20;   var a: array[1..nx,1..nx] of real; i,j,n,m: integer; sum: real;   begin  write('введите размер матрицы');   read(n);   for i: =1 to n do begin  for j: =1 to n do begin  a[i,j]: = random()*100 -50;   write(a[i,j]: 9: 4);   end;   writeln;   end;   writeln; writeln;   for i: =1 to n do begin  for j: =1 to n do beginif i < j then begin  write(a[i,j]: 9: 4); sum: =sum + a[i,j];   end  else  write(' ': 9);   end;   writeln;   end;   write('сумма = ',sum);   end.

1.

var n: integer; begin  cls;   for n: =1 to 10 do begin    write('n=',sqr(n)+5,' ');   end; end.

 

решить на паскале?

обьем вини изначальный

прирост от меда

прирост от сгущенки

время реализации прироста

время худенья

радиус дверей