Új hozzászólás Aktív témák

• #1740 GHouL^ csendes tag N!tRo #1739

  Új Válasz 2007-01-17 19:45:46 #1740

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  GHouL^

  csendes tag

  válasz N!tRo #1739 üzenetére

  bocs hogy ennyira alapláma vaok, de nem látom a hibát
  Function atlag(Var t: ttipus):integer;
  Var i:byte;
  avg:real;
  begin
  avg:=0;
  For i:=1 to z Do
  begin
  avg:=avg+t;
  end;
  avg:=avg/z;
  atlag:=avg;
  end;
  

Új hozzászólás Aktív témák