Программирование матричных операций

[take.]

Работа 5. ПРОГРАММИРОВАНИЕ МАТРИЧНЫХ ОПЕРАЦИЙ
Разработать программу решения четырех взаимосвязанных задач частой работы:
1) расчета элементов квадратной матрицы А = (аij). i,j = 1,2.....n по заданной формуле;
2) вычисления элементов вектора X = (xj). i = 1,2.....n по заданному правилу;
3) требуемого упорядочения элементов матрицы А или вектора X;
4) вычисления значения у по заданной формуле.

program lab5;
var a:array [1..10,1..10] of real;
    x:array [1..10] of real;
    i,j,k,n: integer;
    y,s,c,max,min: real;
begin
write ('n='); read(n);
     {---????? 1---}
for i:=1 to n do
for j:=1 to n do
a[i,j]:=(10*i+25*j)/(5*i*j);
writeln(' ':20,'matrix A');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:8:3);
writeln;
end;
  {---????? 2---}
for i:=1 to n do
begin
s:=0;
for j:=1 to n do s:=s+min(a[i,j],a[i,j+1])+ max(a[j,i],a[j,j+1])/2;
x[i]:= min(a[i,j],a[i,j+1])+ max(a[j,i],a[j,j+1])/2;
end;
writeln ('':20,'vector x');
for i:=1 to n do write (x[i]:8:3);
  {---????? 3---}
for i:=1 to n-1 do
begin
k:=i;
for j:=i+1 to n do
if odd(j) then
if odd(i) then
if a[j,j]>a[i,j] then
k:=j;
if i<>k then
begin
c:=a[i,j];a[i,j]:=a[k,j];
a[k,j]:=c;
end;
end;
writeln ('':20,'????????????? ???????');
for i:=1 to n do begin
for j:=1 to n  do
write(a[i,j]:8:3);
writeln;
end;
    {---????? 4---}
s:=0;
for i:=1 to n-1 do begin
if odd(i) then
s:=s + x[i]*x[n+1-i];
y:=s;
end;
writeln('y=',y:4:1);
end.

[Leshii]

Код ужасно читаем, возьмите его в теги
[*CODE]...[*/CODE] без звездочек.

И собственно в чем проблема?

[take.]

Код нужно доработать

[Leshii]

Дорабатывайте, даю вам на сей подвиг благословление =)
Теперь без сарказма. Что нужно доработать( нужна конкретика )?)

[take.]

Ошибка, начиная со 2 пункта, в строке

for j:=1 to n do s:=s+min(a[i,j],a[i,j+1])+ max(a[j,i],a[j,j+1])/2;

выдает: ожидалось имя процедуры или функции

[Sciv]

Открою Вам страшную тайну: в Паскале нет функций min и max. Их нужно писать самому.

[take.]

и как их нужно писать?

[BDA]

и как их нужно писать?

Можно так. Но вообще странный вопрос

function min(a, b: real): real;
begin
  if a < b then
    min := a
  else
    min := b;
end;

[Sciv]

и как их нужно писать?

Но вообще странный вопрос

Действительно, странный для человека, написавшего собственный немаленький код... Собственный ли?