двумерные массивы

[Ранис]

1) расчет элементов квадратной матрицы A = (ai,j ), i,j = 1,2,...,n по заданной формуле a[j,i]=(j*i-(1*2*3)+exp(i*ln(2))/(7*i-1.2*j)
2) вычислениe элементов вектора X = (xi), i = 1,2,...,n по заданному правилу x[i]=сумма(a[i,j]*cos(a[j,n-i+1])), где j принимает значения от 1 до n
3)упорядочить элементы последнего столбца матрицы А по возрастанию значений;
4) вычислить значениe y по заданной формуле y=(x[1]+x[2]+x[3])*x[2]+(x[2]+x[3]+x[4])*x[3]+...+(x[n-2]+x[n-1]+x[n])*
x[n-1]

[Stilet]

Ну а проблемы в чем?
Показывай как массив вводишь.

[Ранис]

Сообщение от Stilet

Ну а проблемы в чем?
Показывай как массив вводишь.

мда.. прям выручил

[BDA]

А Вы надеялись увидеть готовое решение, не показав своих попыток, т.е. "нахаляву"?
2 пути:
1) Ваши попытки, наработки -> помощь и объяснения
2) деньги -> готовое решение

[Sciv]

мда.. прям выручил

Военком выручит. А у нас тут только помогают И только тем, кто этой помощи просит, а не выкладывает молча свои детские задачи, даже слово "здравствуйте" или его аналог не употребляя

[AHBAR]

Сообщение от Ранис

1) расчет элементов квадратной матрицы A = (ai,j ), i,j = 1,2,...,n по заданной формуле a[j,i]=(j*i-(1*2*3)+exp(i*ln(2))/(7*i-1.2*j)
2) вычислениe элементов вектора X = (xi), i = 1,2,...,n по заданному правилу x[i]=сумма(a[i,j]*cos(a[j,n-i+1])), где j принимает значения от 1 до n
3)упорядочить элементы последнего столбца матрицы А по возрастанию значений;
4) вычислить значениe y по заданной формуле y=(x[1]+x[2]+x[3])*x[2]+(x[2]+x[3]+x[4])*x[3]+...+(x[n-2]+x[n-1]+x[n])*
x[n-1]

Давай по прорядку.. на каком именно пункте у тебя загвоздка?
1) заполнить элементы матрицы - получается, нет? есть кусок кода? там цикл просто составить же надо.

[Ранис]

Сообщение от AHBAR

Давай по прорядку.. на каком именно пункте у тебя загвоздка?
1) заполнить элементы матрицы - получается, нет? есть кусок кода? там цикл просто составить же надо.

все сделал кроме третьего пункта

[BDA]

for i := 1 to n - 1 do
  for j := i + 1 to n do
    if a[i, n] > a[j, n] then
    begin
        tmp := a[i, n];
        a[i, n] := a[j, n];
        a[j, n] := tmp;
    end;

[Ранис]

Сообщение от BDA

for i := 1 to n - 1 do
  for j := i + 1 to n do
    if a[i, n] > a[j, n] then
    begin
        tmp := a[i, n];
        a[i, n] := a[j, n];
        a[j, n] := tmp;
    end;

огроооомное спасибо)