в матрице найти Позицию нейтралитета(паскаль)

[Amaday]

Дана матрица




Дано что такое позиция нейтралитета :




в матрице найти Позицию нейтралитета(паскаль)

[Serge_Bliznykov]

r =2
Lr = max( Bi) = 4.4

[Mad_Cat]

const a:array[1..4,1..5]of integer =((4,3,1,2,5),(7,8,4,2,1),(3,1,9,4,3),(5,6,7,1,2));
var
b:array[1..4] of real;
i,j:integer;
m:integer;
begin
m:=1;
for i:=1 to 4 do begin
b[i]:=0;
for j:=1 to 5 do
b[i]:=b[i]+a[i,j];
b[i]:=b[i]/5;
if b[i]>b[m] then m:=i;
write(b[i],' ');
end;
writeln;
write ('b[',m,']=',b[m]);
end.

3 4.4 4 4.2
b[2]=4.4

[Slym]

program Project2;

{$APPTYPE CONSOLE}
type
  TLine=array[1..5] of integer;
const
  A:array[1..4] of TLine =
    ((4,3,1,2,5),(7,8,4,2,1),(3,1,9,4,3),(5,6,7,1,2));

function Avg(Line:TLine):extended;
var i,s:integer;
begin
  s:=0;
  i:=length(Line);
  while i<>0 do
  begin
    dec(i);
    inc(s,Line[High(line)-i]);
  end;
  result:=s/length(Line);
end;

function Max(Arr:array of extended): extended;
var i:integer;
begin
  i:=Low(Arr);
  result:=Arr[i];
  repeat
    inc(i);
    if result<Arr[i] then
      result:=Arr[i];
  until i>=High(Arr);
end;

var
  b:array[1..4] of extended;
  i:integer;
begin
  for i:=High(b) downto Low(b) do
    b[i]:=Avg(a[i]);
  Writeln('Lr= ',Max(b):2:2);
  randomize;
  Writeln('R= ', Random(10));
  readln;
end.