{$N+}
const
n=11;
type
arr=array[1..n,1..n] of double;
vec=array[1..n] of double;
var
a: arr;
v: vec;
i,j: byte;
sum1,sum2: double;
begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=sqrt(i+2*j)-sqrt(abs(i-2*j));
writeln('Матрица A:');
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:7:3);
writeln;
end;
writeln;
for i:=1 to n do
begin
sum1:=0;
sum2:=0;
for j:=1 to n do
begin
sum1:=sum1+a[i,j];
sum2:=sum2+a[j,i];
end;
v[i]:=(sum1-sum2)/n;
end;
writeln('Вектор V:');
for i:=1 to n do write(v[i]:7:3);
writeln;
readln;
end.
|
