[iwa]

zad 3


unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls;

type

{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;

var
Form1: TForm1;

implementation

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
tab : array of integer;
i : integer;
begin
setlength(tab, 10);
for i:= 0 to 9 do begin
tab[i] := random(10)+1;
Memo1.lines.add(inttostr(tab[i]));
end;


end;

initialization
{$I Unit1.lrs}

end.