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

[Adika]

Помогите пожалуйста, у меня ни как не получается правильный ответ... уже запарилась из-за этой задачи не могу зачет сдать.

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

Program mass;                                                               
var s:array[1..3,1..3] of integer;                                          
p,m:integer;                                                                
i,j,imax,jmin:integer;                                                     
begin                                                                       
write('vvedite elementy matricy s:');                                       
for i:=1 to 3 do                                                                                                                               
for j:=1 to 3 do                                                            
read(s[i,j]);                                                               
m:=1;                                                                       
for i:=1 to 3 do                                                            
for j:=1 to 3 do                                                            
begin                                                                       
if s[i,j]>m then begin                                                      
m:=s[i,j];                                                                  
imax:=i;                                                                    
end;   
end;                                                                        
for i:=1 to 3 do                                                            
for j:=1 to 3 do                                                            
begin                                                                       
if s[i,j]<m then begin                                                      
m:=s[i,j];                                                                  
jmin:=j;                                                                    
end;                                                                        
end;                                                                        
p:=0;                                                                       
for i:=1 to 3 do                                                            
p:=p+s[imax,j]*s[i,jmin];                                                   
writeln('p=',p);                                                          
end.

Пожалуйста помогите, 5-ого сдавать надо.



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

[Son Of Pain]

Должно быть написано так, например )

p:=p+s[imax,i]*s[i,jmin];

[Adika]

Огромное спасибо, получилось. Только один вопрос, а почему именно так. Не могу понять))))

[Son Of Pain]

Потому что в цикле изменяется только i, вестимо ) j там вообще не используется.

[Adika]

Еще раз, огромное спасибо