kktina nedokoncena

      c:TCanvas;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
c:=Image1.Canvas;
Image1.Canvas.Brush.Color:=clwhite;
Image1.Canvas.Pen.Color:=clblack;
Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

        k:=0;
        p:=0;
        x:=10;
        for i:=1 to 19 do begin
        a[i]:=random(10);
        Image1.Canvas.TextOut(x,10,inttostr(a[i]));
        x:=x+10;
        k:=k+a[i];
        p:=k/i;
        end;
        Image1.Canvas.TextOut(10,100,floattostr(p));
        Image1.Canvas.TextOut(10,75,inttostr(i));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
        k:=0;
        l:=0;
        p:=0;
        x:=10;
        for i:=1 to 19 do begin
        a[i]:=random(10);
        image1.canvas.TextOut(x,10,inttostr(a[i]));
        x:=x+10;
        end;
        x:=10;
        for i:=1 to 19 do begin
        if a[i]=0 then   begin
                a[i]:=1;
                l:=l+1;
                image1.canvas.Pen.Color:=clred;
                end;

                image1.canvas.Pen.Color:=clblack;
                  Image1.Canvas.TextOut(x,75,inttostr(a[i]));
                  x:=x+10;
        end;

        Image1.Canvas.TextOut(10,100,'prepisany kkt-'+inttostr(l));


end;

end.