скалярное произведение строки с наибольшим элементом и столбца с наименьшим элементом

[katya36]

Пусть дана вещественная матрица размером 7х7, все элементы которой различны. Найдите скалярное произведение строки с наибольшим элементом и столбца с наименьшим элементом.


Очень нужно...никак не могу зачет сдать. 1ый курс, procedure и function всякие ещё не проходили, решить нужно просто через матрицы. Пожалуйста, помогите кто-нибудь решением!

[katya36]

Пусть дана вещественная матрица размером 7х7, все элементы которой различны. Найдите скалярное произведение строки с наибольшим элементом и столбца с наименьшим элементом.


Пожалуйста, помогите решением, зачет сдать не огу, край надо! 1ый курс, поцедуры и функции всякие не проходили ещё, решить нужно просто через матрицы....

[slips]

const
 n=7;
 m=7;
var 
   Mas:array[1..n,1..m] of real;
   j,i:integer;
   begin
    writeln('Введите элементы матрицы');
            for i:=1 to n do
                  for j:=1 to m do 
                             readln(Mas[i,j]);
      
    writeln('****Матрица*****',n,'*',m);
             for i:=1 to n do 
                   for j:=1 to m do 
                             writeln(Mas[i,j]);
   end

А что там со скалярными элементами я чет не понял

[katya36]

спасибо большое! а как отыскать столбцы и строки, которые требуются?


сорри за создание темы в этом разделе, не знала, что нельзя...

[Sazary]

Вроде работает.

program proizv;

uses crt;

var
matr : array[1..7,1..7] of integer;
i,j : integer;
m : integer;
imax,jmin : integer;
p : integer;

begin
clrscr;
randomize;
for i:=1 to 7 do
 begin
 for j:=1 to 7 do begin
  matr[i,j] := random(50);
  write(matr[i,j]:4);
  end;
  writeln;
 end;

  m := 0;
for i:=1 to 7 do
 for j:=1 to 7 do
  begin
  if matr[i,j]>=m then begin
                       m := matr[i,j];
                       imax := i;
                       end;
  end;

 m := matr[i,j];
for i:=1 to 7 do
 for j:=1 to 7 do
 begin
 if matr[i,j]<=m then  begin
                       m := matr[i,j];
                       jmin := j;
                       end;
 end;
p :=0;
for i:=1 to 7 do
 p := p + matr[imax,i]*matr[i,jmin];
writeln('P= ',p);

readln;
end.

Вечер уже, голова забита, но, думаю, правильно.

[Greblin]

program Skal;
type Matrix = array[1..7,1..7] of integer;
var min, max, imax, jmin, i, j, res: integer;
     m: Matrix;
begin
for i := 1 to 7 do
  for j := 1 to 7 do
    read(m[i, j]);
{ввод матрицы}
max := m[1, 1]; min := m[1, 1]; imax := 1; jmin := 1;
for i := 1 to 7 do
  for j := 1 to 7 do
    begin
    if m[i, j] > max then begin max := m[i, j]; imax := i end;
    if m[i, j] < min then begin min := m[i, j]; jmin := j end;
    end;
{нашли нужные строку и столбец}
res := 0;
for i := 1 to 7 do res := res + m[imax, i] * m[i, jmin];
writeln(res);
end;

P.S. Не тестил, так что могут быть мелкие ошибки, но в общем и целом всё так

[katya36]

спасибо огромное Вам!!! а в первом решении что такое clrscr;
randomize;- мы это кажется тоже не проходили....

[slips]

Ну тебе же вроде уже ответили в другом разделе

[Greblin]

2Sazary
Маленькие неточности. У вас начальные значения максимума равно 0, что некорректно, а начальное значение минимума вообще по хорошему не определено, ибо переменные-счётчики цикла после выхода из цикла по стандарту не определены :-)

[katya36]

простите, я с этими разделами запуталась!(( спасибо большое!