Массив. Подскажите, что делать дальше?

[Damir_Khasanov]

Пусть дана вещественная квадратная матрица порядка п. Получите х1*хn + х2*хn-1 + ... + хn*х1, где хi — наибольшее значение элементов i-й строки данной матрицы.
Собственно, наибольшие значения вывожу в одномерный массив, но как выполнить расчет по формуле и выдать его..

program Matrix;
const nmax=10;
var a:array[1..nmax,1..nmax] of integer;
mas, mis : array[1..nmax] of integer;
max:integer;
n,i,j:integer;
begin
randomize;
writeln ('Vvedite poryadok kvadratnoy matritsi n');
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
a [i,j]:=random(10)
end;
end;
for j:=1 to n do
begin
mas [i]:=a[i,j];
for i:=1 to n do
begin
if mas[i] < a[i,j] then mas[i]:=a[i,j];
end;
end;
for i:=n to 1 do
begin mis[i]:=mas[i];
end;
for i:=1 to n do
begin
writeln;
for j:=1 to n do
write (a[i,j]:2);
writeln (' ',mas[i]);
writeln (' ',mis[i]);
end;
end.

[ZX Spectrum-128]

Sum:=0;
For i:=1 to n do
  Sum:=sum+x[i]*x[n-i+1];

[GetMax]

Damir_Khasanov неужели этот код действительно ищет максимальные элемент в строках?

for j:=1 to n do
begin
mas [i]:=a[i,j];
for i:=1 to n do
begin
if mas[i] < a[i,j] then mas[i]:=a[i,j];
end;
end;

А вот это на мой взгляд вообще какие-то чудеса. Зачем это вам нужно в рамках конкретной задачи?

for i:=n to 1 do
begin mis[i]:=mas[i];
end;

[Damir_Khasanov]

Сообщение от ZX Spectrum-128

Sum:=0;
For i:=1 to n do
  Sum:=sum+x[i]*x[n-i+1];

Спасибо за код, сам не додумался

[Damir_Khasanov]

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

Damir_Khasanov неужели этот код действительно ищет максимальные элемент в строках?

for j:=1 to n do
begin
mas [i]:=a[i,j];
for i:=1 to n do
begin
if mas[i] < a[i,j] then mas[i]:=a[i,j];
end;
end;

А вот это на мой взгляд вообще какие-то чудеса. Зачем это вам нужно в рамках конкретной задачи?

for i:=n to 1 do
begin mis[i]:=mas[i];
end;

Как ни странно, но да. С меня требуется еще вывести этот одномерный массив.

[Damir_Khasanov]

Все доделал, получилось более-менее красиво. Спасибо всем!

program Matrix;
const nmax=10;
var a:array[1..nmax,1..nmax] of integer;
mas : array[1..nmax] of integer;
    max, Sum:integer;
    n,i,j:integer;
begin
randomize;
writeln ('Vvedite poryadok kvadratnoy matritsi n');
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
 begin
  a [i,j]:=random(10)
 end;
 end;
for j:=1 to n do
begin
mas [i]:=a[i,j];
for i:=1 to n do
begin
if mas[i] < a[i,j] then mas[i]:=a[i,j];
end;
end;
Sum:=0;
For i:=1 to n do
  Sum:=sum+mas[i]*mas[n-i+1];
 for i:=1 to n do
begin
writeln;
for j:=1 to n do
write (a[i,j]:2);
writeln ('      ',mas[i]);
end;
writeln ('x1*xn + x2*xn-1 + ... + xn*x1= ', Sum);
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.