Пусть дана вещественная квадратная матрица порядка п. Получите х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 :=a[i,j]; for i:=1 to n do begin if mas < a[i,j] then mas:=a[i,j]; end; end; for i:=n to 1 do begin mis:=mas; end; for i:=1 to n do begin writeln; for j:=1 to n do write (a[i,j]:2); writeln (' ',mas); writeln (' ',mis); end; end.
|
|
|