Массивы(поиск уникального и среднестатистического элементов))

[MaksimSeriy]

Среднестатистическим назовем элемент массива, если для него модуль разности его значения и среднего арифметического элементов массива достигает минимума. Аналогично, уникальным будем называть элемент, для которого такой модуль разности достигает максимума. В заданном массиве Х(n, m) найти номера (индексы) среднестатистического и уникального элементов.

Ниже приведен рабочий пример решения такой задачки, с использованием StringGrid_In для ввода эл-тов массива и StringGrid_Out для вывода искомых элементов массива

Код:

procedure TForm1.BitBtn_OkClick(Sender: TObject);
 var n, m, i, j, fix_n, fix_m, unik_i,unik_j,sr_i,sr_j: integer;
   sa, sum: real;
   unik,sr_st, k: real;
   a: array of array of real;
begin

   n:=StringGrid_In.ColCount;
   m:=StringGrid_In.RowCount;
   fix_n:=StringGrid_In.FixedCols;  
   fix_m:=StringGrid_In.FixedRows;  
     SetLength(a,n-fix_n);
     for i:=0 to n-fix_n-1 do
     SetLength(a[i],m-fix_m);
      
 for i:= fix_n to n-1 do
 for j:= fix_m to m-1 do
   a[i-fix_n,j-fix_m]:= StrToFloat(StringGrid_In.Cells[i,j]);
   sum:=0; 
   unik:=1;
   sr_st:=1;
   k:=0;
   for i:=1 to n-1 do
   for j:=1 to m-1 do begin

     sum:=sum+a[i-fix_n,j-fix_m]; 

   end;

     sa:=(sum)/((n-fix_n)*(m-fix_m)); 
   for i:=1 to n-1 do
   for j:=1 to m-1 do  begin
   k:=abs(a[i-fix_n,j-fix_m]-sa); 
   if unik<k then
   begin
   unik:=k; 
   unik_i:=i;
   unik_j:=j;
   a[i-fix_n,j-fix_m]:=  a[unik_i-fix_n,unik_j-fix_m];
   end;
   if sr_st>k then begin
   sr_st:=k;
   sr_i:=i;
   sr_j:=j;
   a[i-fix_n,j-fix_m]:=  a[sr_i-fix_n,sr_j-fix_m];
   end;
   end;

   n:=StringGrid_Out.ColCount;
   m:=StringGrid_Out.RowCount;
   fix_n:=StringGrid_Out.FixedCols;
   fix_m:=StringGrid_Out.FixedRows;

   StringGrid_Out.Cells[unik_i,unik_j]:= FloatToStr(a[unik_i-fix_n,unik_j-fix_m]);
   StringGrid_Out.Cells[sr_i,sr_j]:= FloatToStr( a[sr_i-fix_n,sr_j-fix_m]);

   end;
end.