Advertisement
dartwlad

Untitled

Nov 2nd, 2016
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.44 KB | None | 0 0
  1.  
  2. const
  3.   n = 5;
  4.  
  5. var
  6.   arr: array[1..n, 1..n] of integer;
  7.   i, j, max, min, k, s: integer;
  8.  
  9.  
  10. begin
  11.  
  12.   randomize;
  13.  
  14.   for i := 1 to n do
  15.   begin    
  16.     for j := 1 to n do
  17.     begin
  18.       arr[i, j] := random(10);
  19.       write(arr[i, j], ' ');
  20.     end;
  21.     writeln;
  22.   end;
  23.   writeln;
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.   for i := 1 to n do
  31.   begin
  32.     for j := 1 to n do
  33.       write(arr[i, j], ' ');
  34.     writeln;
  35.   end;
  36.  
  37.  
  38. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement