Program lab3;
Uses CRT;
const n=5;m=5;
Var A,C:array[1..n] of real;B:array[1..m,1..n] of real;
i,j:integer;
r,S:real;
Begin
clrscr;
writeln('Vvedite massiv A [',n,']:');
for i:=1 to n do
read(A[i]);
for i:=1 to m do
begin
for j:=1 to n do
{read (B[i,j]; Ввод нужно убрать, т.к. элементы массива вычисляются по указанным формулам}
if i<j then B[i,j]:=i+j else
B[i,j]:=(i-j)/(i+1);
end;
for i:=1 to m do
begin
for j:=1 to n do
write(B[i,j],' ');
writeln
end;
for j:=1 to n do
begin
S:=0;
for i:=1 to m do
S:=S+A[i]*B[i,j];

C[j]:=S;
end;
for j:=1 to n do
write(C[j],' ');
for j:=1 to n-1 do
for i:=n down to j+1 do

if abs(C[i-1])<abs(C[i]) then
begin
r:=C[i];
C[i]:=C[i-1];
C[i-1]:=r;
end;
for i:=1 to n do
begin
write(C[i],' ');
end;
readkey
END.