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

• #1047 Sátánné tag Lortech #1046

  Új Válasz 2006-03-26 18:26:46 #1047

  Ú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

  

  Sátánné

  tag

  válasz Lortech #1046 üzenetére

  Eddig eljutottam!
  Az else-el van valami baj és a tömb elemeinek a számát írja ki a végén nem azokat a számokat amiket az elemei tartalmaznak! Van valakinek valami ötlete, hogy miért? És légyszives a helyes megoldást írjátok már oda, mert én ennél többet nem tok kihozni belőle!
  
  program csere;
  var tomb:array[1..10] of integer;
  i,s:integer;
  irany:string;
  begin
  writeln ('Adjon meg 10 számot!');
  for i:=1 to 10 do
  Begin
  Writeln(i,'.szám: ');
  readln (tomb);
  end;
  writeln ('Adjon meg egy csereirányt!Fel:f vagy le:l!');
  readln (irany);
  if irany='f' then
  for i:=1 to 10 do
  s:=tomb;
  tomb :=tomb [i+1];
  tomb[i+1]:=s
  else
  for i:=10 to 1 do
  s:=tomb;
  tomb:=tomb[i-1];
  tomb[i-1];
  writeln ('Az új tömb számai: ',tomb);
  readln;
  end.

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