Aritmetický průměr – Delphi – Fórum – Programujte.com

Zdravím, snažim se napsat prográmek na výpočet aritmetického průměru, ale pořád nefunguje jak by měl. 

var n,i,pocet:integer; a,S,pr:real;

begin
n:=spinedit1.Value; {načtu počet čísel, z kterých se bude průměr počítat}

Button1.Enabled:=false;{není důležitý}
S:=0; pocet:=0;
For i:=1 to n do
  begin a:=StrToFloat(InputBox('zadej cislo a','zadej cislo a'+intToStr(i),''));
        listbox1.Items.Add(FloatToStr(a));

s:=s+a;{tady někde bude chyba...}

p:=s/n;

Label1.Caption:='P= '+floatTostrF(p,fffixed,15,2)

end.

program ale jen vydělí poslední zadané číslo a/n a výpis do listboxu taky nefunguje protože tam vypíš též poslední zadané a a to n-krát :( (

Předem díky všem, zřejmě to není nic složitýho ale já začínám...

#1 MatrO
nevidím nikde end pro cyklus for.

zkus to vkládat přes inonku vložit zdrojový kód

<?

Nieco som skusil a tu je vysledok

http://www.uloz.to/…/priemer-rar

Skus sa tam pozriet a podla toho nieco urob

procedure TForm2.Button1Click(Sender: TObject);
var n,i,pocet:integer; a,S,pr:real;
begin
  n:=spinedit1.Value; {načtu počet čísel, z kterých se bude průměr počítat}
  if n < 1 then exit;
  Button1.Enabled:=false;{není důležitý}
  S:=0; pocet:=0;
  For i:=1 to n do
  begin
    a:=StrToFloat(InputBox('zadej cislo a','zadej cislo a'+IntToStr(i),''));
    listbox1.Items.Add(FloatToStr(a));
    s:=s+a; 
  end; //chybel
  pr:=s/n;
  Label1.Caption:='Pr = '+FloatToStrF(s,ffFixed,15,2)+' / '+inttostr(n)+' = '+FloatToStrF(pr,ffFixed,15,2);
end;

#4 jindrich
Zdá se to být v pořádku.

Díky všem už funguje :)