[илья1995]

Код:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin, Grids;
 
type
  TForm1 = class(TForm)
    SpinEdit1: TSpinEdit;
    StringGrid1: TStringGrid;
    se1: TSpinEdit;
    btn1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
    procedure se1Change(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
SpinEdit1.MinValue :=1;
SpinEdit1.MaxValue := 10;
Se1.MinValue :=1;
Se1.MaxValue := 10;
StringGrid1.ColCount := SpinEdit1.Value;
StringGrid1.RowCount := Se1.Value;
 
end;
 
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
StringGrid1.ColCount := SpinEdit1.Value;
if SpinEdit1.Value > 5 then
 StringGrid1.Width := StringGrid1.Width + 36;
 
end;
 
procedure TForm1.se1Change(Sender: TObject);
begin
StringGrid1.RowCount := Se1.Value;
if Se1.Value > 5 then
 StringGrid1.height := StringGrid1.height + 36;
end;
 
procedure TForm1.btn1Click(Sender: TObject);
var
mas:array[1..100,1..100] of integer;
i,j,m,sum:integer;
x:real;
begin
m:=0;
x:=0;
randomize;
for i := 1 to 10 do
for j := 1 to 10 do
begin
mas[i,j]:=random(100)-50;
StringGrid1.Cells[i,j]:=inttostr(mas[i,j]);
end;
 
 
end;
 
end.

знаю что должно быть что то вроде этого

Код:

sum:=0;
for i := 1 to 10 do
for j := 1 to 10 do
 summ := summ + mas[i];sr := summ / 10;

нужно вывести кол-во элементов меньше среднего арифмитического