Среднее арифметическое

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
 const N = 5; {например массив из 5 элементов}
var
 Massiv: array [1..N] of integer;
 Nmax: Integer; {номер с максимальным элементом}
 MaxChislo: Integer;{значение максимального числа}
 Summa: Integer; {сумма всех элементов массива}
 I: Integer;
begin
  {заполняем массив}
  Massiv[1]:=1;
  Massiv[2]:=21;
  Massiv[3]:=5;
  Massiv[4]:=42;
  Massiv[5]:=3;
 
MaxChislo:=0;
  for I:=1 to N do
   begin
     if MaxChislo< Massiv[I] then
         begin
          MaxChislo:= Massiv[I];
          Nmax:=I;
         end;
 
             Summa:=Summa+Massiv[I];
 
 
    end;
 
 memo1.Lines.Add('номер максимального элемента  - '+ IntToStr(Nmax));
 memo1.Lines.Add('значение максимального элемента  - '+ IntToStr(MaxChislo));
 memo1.Lines.Add('сумма элементов  - '+ IntToStr(Summa));
 memo1.Lines.Add('среднее арифметическое  - '+ floatToStr(Summa/N));
 memo1.Lines.Add('среднее арифметическое*макс число  - '+ floatToStr(Summa*MaxChislo/N));
 
 
 end;
end.

Button1: TButton; // - не надо. Это лишнее, сорри

n:=StrToInt(Edit1.Text);

SetLength(Massiv,n);

randomize;
for i:=0 to n-1 do
  Massiv[i]:=random(100);

Massiv := NIL;

Finalize(Massiv);