Будьте любезны горит задание.Завтра сдавать,не могли бы посмотреть,я написал прогу но ничего в программировании не понимаю.Писал чисто по образцам.Не могли бы проверить.Вот само задание.
Ввести массив А[5].Сформировать массив В[5,5],где B[i,j]=i+j,если i<j;иначе B[i,j]=(i-j)/(i+1).Найти массив С=А*В.Упорядочить массив С в порядке возрастания абсолютных значений его элементов.
Программа:
Program lab3;
Uses CRT;
const n=5;m=5;
Var A[1..n],B[1..m,1..n],C[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],' ');
end;
for j:=1 to n do
begin
S:=0
for i:=1 to m do
S:S+A[i]*B[i,j];
end;
C[j]:=S;
for j:=1 to n do
write(C[j],' ');
for j:=1 to n-1 do
for i:=n down to j+1 do
begin
if abs(C[i-1])<abs(C[i]) then
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.

Вроде бы все ок.

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.

Спасибо за помощь!!!=)