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

• #468 ALI_G veterán VladimirR #467

  Új Válasz 2004-11-01 23:22:13 #468

  Ú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

  

  ALI_G

  veterán

  válasz VladimirR #467 üzenetére

  Az előbb már én is rájöttem erre, csak még nem tom, hogy valósítsam meg, de :
  
  for j:=i downto 1 do
  begin
  if (tmp[j]>tmp[j-1]) then
  szam:=szam+(tmp[j]-tmp[j-1])
  else if (j <> 0) then
  szam:=szam+tmp[j];
  if (tmp[j] < tmp[j+1]) and (j<i) then
  szam := szam-tmp[j];
  end;
  
  ez így jó lenne?
  
  [Szerkesztve]

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