procedure TForm1.Button1Click(Sender: TObject);
var soucet,i,pocet,x,min:integer ;
avg:real;
begin
randomize;
memo1.Clear; soucet:=0 ;
pocet:=0;
min:=x ;
for i:=1 to 20 do begin
x:=random(21)+10;
soucet:=soucet+x;
pocet:=pocet+1;
if x<min then min:=x;


end;

memo1.lines.add('soucet je : '+inttostr(soucet));
memo1.lines.add('pocet je : '+inttostr(pocet));
memo1.lines.add('minimum je: '+inttostr(min));



end;

end.


AVG je soucet/pocet, ale nevim jak ho vypsat memo1.lines.add('avg je: '+inttostr(?? + aby bylo na 2 desetinná mista));
Dale pak u dělitelnosti 5. Myslím že to bude nějak takhle if x mod 5=0 then ??

V podstate by mi stacili tyhle dve informace.
Za PK,PZ se omlouvám, myslel jsem tím počet kladnych a počet zapornych cisel, ale to se tohoto programu netyka a je to taky jednoduche...