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

• #1040 Sátánné tag Lortech #1038

  Új Válasz 2006-03-25 17:50:48 #1040

  Ú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 #1038 üzenetére

  Elkezdtem a programot és akkor most szeretném a segítségeteket kérni.
  
  program szamcsere;
  uses crt;
  var tomb:array[1..10] of integer;
  s:integer;
  i:byte;
  irany:string;
  begin
  clrscr;
  writeln ('Adjon meg tíz számot!');
  for i:=1 to 10 do;
  begin
  writeln (i,'.szám: ');
  readln (tomb );
  end;
  writeln ('Válasszon egy csereirányt!Le:l vagy fel:f');
  readln (irany);
  if irany:=l then
  begin
  s:=tomb ;
  tomb :=tomb[length (tomb)+1-i];
  tomb [length (tomb)+1-i]:=s;
  end
  else
  begin
  s:=tomb ;
  tomb :=tomb [length (tomb)-1+i];
  szamok [length (tomb)-1+i]:=s;
  end;
  writeln ('az új tömb: ',tomb);
  readln;
  end.
  
  Tudom, hogy nem jó ezért kérem a segítségeteket, hogy mi benne a hiba!
  
  

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