№1
const n=5;
var A: array[1..n,1..n] of integer;
max,min,SP: integer;
i,j,maxj,mini: byte;
begin
SP:=0;
Randomize;
for i:=1 to n do
for j:=1 to n do
A[i,j]:= Random(10);
max:= A[1,1]; maxj:=1;
min:= A[1,1]; mini:=1;
for i:=1 to N do begin
for j:=1 to N do begin
if A[i,j]>max then begin max:= A[i,j]; maxj:=j
end;
if A[i,j]<min then begin min:= A[i,j]; mini:=i
end;
end;
end;
for i:=1 to n do
SP:= SP+A[i,maxj]*A[mini,i];
Writeln(' Скалярное произведение равно: ',SP);
Readln;
end.