программка

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
      private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
//заполнение массива случ.образом
       var
       A:array[1..100] of integer;
       I,j,k,b:integer;
       s,p,max,buf:integer;
procedure TForm1.Button1Click(Sender: TObject); //zapolnenie massiva
    begin
    Randomize;
    Edit1.Clear;
     begin
      For I := 1 To 10 Do
    A[I] := Random(10)-5;
          for i:= 1 to 10 do
    Edit1.Text := Edit1.Text +' ' + IntToStr(a[i]);
    end;
    end;
 {   end;     }
procedure TForm1.Button2Click(Sender: TObject); //summa
begin
    Edit2.Clear;
    s := 0;
    For I := 1 To 10 Do
    begin
   if A[i]>0 then s:=s+ a[i];
    end;
    Edit2.Text := Edit2.Text +' ' + IntToStr(s)
      end;
 
 
procedure TForm1.Button3Click(Sender: TObject);  //proizvedenie
begin
Edit3.Clear;
p:= 1;
For I := 1 To 10 Do
begin
p:=p*a[i];
end;
Edit3.Text := Edit3.Text +' ' + IntToStr(p)
end;
end.

var
  n,i,k,summ,min,max,proizv,i1:integer;
  A:array of integer;
begin
  read(n);
  summ:=0;
  proizv:=1;
  max:=1;
  min:=1;
  SetLength(A,n);
  For i:=1 to n do
    begin
      read(k);
      A[i]:=k;
      if A[i]>0 then summ:=summ+A[i];
      if abs(A[i])<abs(A[min]) then min:=i;
      if abs(A[i])>abs(A[max]) then max:=i;
    end;
  if max<min then
    begin
      k:=max;
      max:=min;
      min:=k;
    end;
  For i:=min+1 to max-1 do proizv:=proizv*A[i];
  //Ñîðòèðîâêà:-----------------------------------------
  For i:=1 to n-1 do
    begin
      For i1:=1 to n-1 do
        begin
          if A[i1]<A[i1+1] then
            begin
              k:=A[i1];
              A[i1]:=A[i1+1];
              A[i1+1]:=k;
            end;
        end;
    end;
  //---------------------------------------------------
  writeln('Summa ravna ',summ);
  writeln('Proizvedenie ravno ',proizv);
  writeln('Elements:');
  For i:=1 to n do
    begin
      write(A[i],' ');
    end;
  readln;readln;
end.