Pasted

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    Image2: TImage;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  a:array[1..10]of integer;
  d:integer;
  q:real;
  c:integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 randomize;
 Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);
 
 for c:=1 to 10 do begin
 a[c]:=random(100);
 Image1.Canvas.TextOut(0+c*20,10,inttostr(a[c]));
 d:=d+a[c];
end;
 
 q:=d/10;
 Image2.Canvas.TextOut(20,10,floattostr(q));
 d:=0;
 
end;
procedure TForm1.Button2Click(Sender: TObject);
 var p,l,n,q:integer;
 var x,y:integer;
 
begin
 l:=0;
 n:=100;
 
 for p:=1 to 10 do begin
 if l<a[p] then begin
 l:=a[p];
 x:=p;
 end;
 
 for q:=1 to 10 do begin
 if n>a[q] then begin
 n:=a[q];
 y:=q;
 
 end;
 end;
 end;
      Image1.Canvas.TextOut(0+x*20,10,inttostr(n));
      Image1.Canvas.TextOut(0+y*20,10,inttostr(l));
end;
end.