Paste Search Dynamic
Recent pastes
odwracanie listy w miejscu
  1. program odwracanie_listy_w_miejscu;
  2. type tab=array[1..10]of integer;
  3.        lst = record elementy: tab;
  4.                          ile: integer
  5.                end;
  6. var i,tmp,j: integer;
  7.        x: lst;
  8. begin
  9. (*wczytaj listę*)
  10. read(x.ile);
  11. for i:=1 to x.ile do read(x.elementy[i]);
  12. for i:=1 to x.ile do write(x.elementy[i],' ');
  13. (*odwróć listę w miejscu*)writeln;
  14. for i:=x.ile downto 1 do write(x.elementy[i],' ');
  15.  
  16. for i:=1 to x.ile  do
  17.         begin
  18.                 for j:=x.ile downto 1 do
  19.                         begin
  20.                                 tmp:=x.elementy[i];
  21.                                 x.elementy[i]:=x.elementy[j];
  22.                                 x.elementy[j]:=tmp;
  23.                         end;
  24.         end;
  25. (*wypisz listę odwróconą*)
  26. writeln;
  27. for i:=1 to x.ile do write(x.elementy[i],' ');
  28. end.
Parsed in 0.005 seconds