fork download
copy 
  1. program test;
  2.  
  3. const M = 10; N = 10;
  4.  
  5. type Item = Integer;
  6.  
  7. var
  8.   x : array [1..M, 1..N] of Item;
  9.   y : array [1..N] of Item;
  10.   i, j : Integer;
  11.   v : Item;
  12.  
  13. begin
  14.   for i := 1 to M do begin
  15.     for j := 1 to N do begin
  16.       v := i*N + j;
  17.       x[i, j] := v;
  18.       Write(v:3, ' ');
  19.     end;
  20.     WriteLn;
  21.   end;
  22.  
  23.   WriteLn;
  24.   y := x[1];
  25.   for j := 1 to N do
  26.     Write(y[j]:3, ' ');
  27.   WriteLn;
  28. end.
Success #stdin #stdout 0s 232KB
comments (?)
stdin
copy 


			

					
			
			

				
	
		
		
	
		
		 stdout
					

				
				 copy
			

			
	

		
 11  12  13  14  15  16  17  18  19  20 
 21  22  23  24  25  26  27  28  29  30 
 31  32  33  34  35  36  37  38  39  40 
 41  42  43  44  45  46  47  48  49  50 
 51  52  53  54  55  56  57  58  59  60 
 61  62  63  64  65  66  67  68  69  70 
 71  72  73  74  75  76  77  78  79  80 
 81  82  83  84  85  86  87  88  89  90 
 91  92  93  94  95  96  97  98  99 100 
101 102 103 104 105 106 107 108 109 110 

 11  12  13  14  15  16  17  18  19  20 


	

		
	 
	
	
			

					
			
			
			
			
			
			
			
			

			
			
			
		

	
		
		

			

			                        







			
			

				

	
					
					 https://ideone.com/fi8JJS
					
					
					
					
					

												

												
						
						

					

					
					
					

						
language:

						
Pascal (fpc 3.0.4)

					

					

						
created:
								
						
13 years ago

					

					

						
visibility:

						

							 public																												
							
							

								
							

						

					

										
										

					
					 Share or Embed source code
					
					
					
					

						
						
						
						
						
						
						
					

					
						
	
	
	
	
					
					
					
					
					 
					
					
					
					 
					
					
					
					
					
					

					

					

					
						
					

					


	
Discover > Sphere Engine API

	
The brand new service which powers Ideone!

	
	
Discover > IDE Widget

    
Widget for compiling and running the source code in a web browser!