Дин. массив (Delphi)

[MaxRegN]

Задание - Составить функцию для определения среднего арифметического значения тех элементов одномерного массива длиной N, модуль значения которых меньше заданной величины. Используя эту функцию, вывести те элементы заданного массива, значение которых больше найденного по процедуре среднего арифметического. При расчете среднего арифметического в процедуре учитывать только те элементы массива, модуль которых меньше 5.

 type mas=array of integer;
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
function sred(a:mas;n:integer):real;
var i,k:integer;
begin
k:=0;
result:=0;
for i:=0 to n-1 do
if abs(a[i])<5 then
 begin
  k:=k+1;
  result:=result+a[i]
 end;
if k=0 then result:=0
else result:=result/k
end;  
procedure TForm1.Button1Click(Sender: TObject);
var a:mas;
    n,i,k:integer;
    sr:real;
begin
randomize;
n:=StrToInt(Edit1.Text);
SetLength(a,n);
StringGrid1.ColCount:=n;
StringGrid2.ColCount:=n;
for i:=0 to n-1 do
 begin
  a[i]:=-10+random(21);
  StringGrid1.Cells[i,0]:=IntToStr(a[i])
 end;
sr:=sred(a,n);
Edit2.Text:='Среднее арифметическое элементов по модулю <5='
+FloatToStrF(sr,ffFixed,6,2);
k:=0;
for i:=0 to n-1 do
if a[i]>sr then
 begin
  k:=k+1;
  StringGrid2.Cells[k-1,0]:=IntToStr(a[i]);
 end;
StringGrid2.ColCount:=k;
end;

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

_______
если теги [CODE] [/CODЕ] пишете ручками, то внутри них пробелов быть не должно!


Модератор.

[Sibedir]

1.

ввод не только рандомный, но и ручной.

  Include (StringGrid1.Options, goEditing);

или в инспекторе объектов
2.

чтобы можно было менять размеры стрингрида

procedure TForm1.btnSetCount(Sender: TObject);
begin
StringGrid1.ColCount := StrToInt(Edit1.Text);
end;

procedure TForm1.Button1Click(Sender: TObject);
...
n := StringGrid1.ColCount;

[MaxRegN]

это только предусмотрели возможность ввода а механизма нет...

[Sibedir]

А какой еще механизм нужен? Теперь берёте и вводите ручками. Это и будет ручной ввод.