uses crt;
const n=4;
* * * a:array[1..n,1..n] of real=((0.7,-12, 6, 3),
* * * * * * * * * * * * * * * * * ( *1, *2,-1,-8),
* * * * * * * * * * * * * * * * * ( -3, *4, 5, 0),
* * * * * * * * * * * * * * * * * ( *5, -7, 0, 4));
var b:array[1..n,1..n] of real;
* * i,j,k:byte;
* * s:real;
begin
clrscr;
writeln('Исходная матрица');
k:=0;
s:=0;
for i:=1 to n do
*begin
* for j:=1 to n do
* *begin
* * if j<n-i+1 then
* * *begin
* * * k:=k+1;
* * * s:=s+a[i,j];
* * *end;
* * write(a[i,j]:7:2);
* *end;
* writeln
*end;
s:=s/k;
writeln('Среднее арифметическое выше побочной диагонали=',s:0:2);
writeln('Новая матрица');
for i:=1 to n do
*begin
* for j:=1 to n do
* *begin
* * b[i,j]:=a[i,j]*s;
* * write(b[i,j]:7:2)
* *end;
* writeln
*end;
readln
end.