Скалярное произведение i-й строки матрицы А на столбец, содержащий первый по порядку наибольший элемент данной строки

const
  n = 5;
 
type
  mas = array [1..n, 1..n] of real;
  vector = array [1..n] of real;
 
procedure Vvod(var x: mas);
var
  i, j: byte;
begin
  for i := 1 to n do
    for j := 1 to n do
      x[i, j] := round(10 * sin(i) + cos(i + j));
  writeln('Матрица:');
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(x[i, j]:8:2);
    writeln;
  end;
end;
 
procedure MaxMin(a: mas; var imx, jmn: integer);
var
  i, j, mn: integer;
  mx: real;
begin
  mx := a[1, 1];
  imx := 1;
  jmn := 1;
  for i := 1 to n do
    for j := 1 to n do
    begin
      if a[i, j] > mx then
      begin
        mx := a[i, j];
        imx := i;
        jmn := j;
      end;
    end;
  writeln('Максимальный элемент=', mx, ' в строке ', imx);
  writeln(' в столбце ', jmn);
end;
 
function Scal(a: mas; imx, jmn: integer): real;
var
  i: integer;
  s: real;
begin
  s := 0;
  for i := 1 to n do
    s := a[imx, i] * a[i, jmn];
  Scal := s;
end;
 
var
  a: mas;
  x: vector;
  i, mx, mn: integer;
  s: real;
 
begin
  Vvod(a);
  MaxMin(a, mx, mn);
  for i := 1 to n do
  begin
    s := Scal(a, i, mn);
    x[i] := s;
    writeln('Скалярное произведение строки ', i, ' на столбец ', mn, '=', x[i]);
  end;
end.

const
  n = 10;
 
type
  mas = array [1..n, 1..n] of real;
  vector = array [1..n] of real;
 
procedure Vvod(var x: mas);
var
  i, j: byte;
begin
  for i := 1 to n do
    for j := 1 to n do
      x[i, j] := round(10 * sin(i) + cos(i + j));
  writeln('Матрица:');
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(x[i, j]:7:2);
    writeln;
  end;
end;
 
procedure MaxMin(a: mas; var imx, jmn: integer);
var
  i, j, mn: integer;
  mx: real;
begin
  mx := a[1, 1];
  imx := 1;
  jmn := 1;
  for i := 1 to n do
    for j := 1 to n do
    begin
      if a[i, j] > mx then
      begin
        mx := a[i, j];
        imx := i;
        jmn := j;
      end;
    end;
  {  writeln('Максимальный элемент=', mx, ' в строке ', imx);
  writeln(' в столбце ', jmn);}
end;
 
function Scal(a: mas; imx, jmn: integer): real;
var
  i: integer;
  s: real;
begin
  s := 0;
  for i := 1 to n do
    s := a[imx, i] * a[i, jmn];
  Scal := s;
end;
 
var
  a: mas;
  x: vector;
  i, mx, mn: integer;
  g, s: real;
 
begin
  Vvod(a);
  MaxMin(a, mx, mn);
  g := 0;
  writeln('Вектор: ');
  for i := 1 to n do
  begin
    s := Scal(a, i, mn);
    x[i] := s;
    write(x[i]:7:2);
    g := g + x[i] / 100 - x[n - i + 1] / 10;
  end;
  writeln;
  writeln('Функция G: ', g);
end.