Advertisement
Guest User

yasmin

a guest
May 25th, 2019
91
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.52 KB | None | 0 0
  1. program yassmin;
  2. uses wincrt;
  3.  
  4. type
  5. tab=array[1..50]of integer;
  6.  
  7.  
  8. var
  9. t1,t2:tab;
  10. n,i:integer;
  11.  
  12. begin
  13.    
  14. write('donner la taille du tab n = ');
  15. readln(n);
  16.    
  17.    
  18. //------ remplir ---------
  19. for i :=1 to  n do
  20. begin
  21.    
  22. t1[i]:=Random(20);
  23. writeln;
  24. write('lentier aleatoire qui on a deja saisie est ==>  ',t1[i]);   
  25.    
  26. end;
  27.  
  28.  
  29.  
  30. for i :=1 to  n do
  31. begin
  32.     writeln('------------------------------');
  33. write('t[',i,'] = ',t1[i]);
  34. writeln;   
  35.     writeln('------------------------------');
  36.    
  37. end;
  38.  
  39.  
  40.    
  41.  
  42.    
  43.    
  44. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement