fork download
copy 
  1. program lab5(input, output);
  2. const
  3.   n = 7; 
  4.   m = 8;
  5. var
  6.   Y: array[1..n, 1..m] of integer;
  7.   Z: array[1..m] of integer;
  8.   i, j, max_val: integer;
  9.  
  10. begin
  11.   randomize;
  12.  
  13.   for i := 1 to n do
  14.     for j := 1 to m do
  15.       Y[i, j] := random(100) - 50;
  16.  
  17.   writeln('Matrix ', n, '*', m, ' Y=');
  18.   for i := 1 to n do
  19.   begin
  20.     for j := 1 to m do
  21.       write(Y[i, j]:4, '|');
  22.     writeln;
  23.   end;
  24.  
  25.   for j := 1 to m do
  26.   begin
  27.     max_val := Y[1, j];
  28.     for i := 2 to n do
  29.     begin
  30.       if Y[i, j] > max_val then
  31.         max_val := Y[i, j];
  32.     end;
  33.     Z[j] := max_val;
  34.  
  35.     writeln('column ', j, ': max= ', Z[j]:3);
  36.   end;
  37.  
  38.   writeln('Result array Z-');
  39.   for j := 1 to m do
  40.     write(Z[j]:4);
  41.   writeln;
  42.  
  43.   readln;
  44. end.
Success #stdin #stdout 0s 5316KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Matrix 7*8 Y=
 -29|  -7|   3| -15|  41| -25|  24| -39|
  -6| -18|  30|   7| -11|  -4| -49|  24|
  16| -30| -24|  15| -22|  41| -28|  25|
 -18|  10|  25|  37|  43|   2| -35|  43|
 -34|  45| -16|   6|  34| -37| -40|  -8|
   9|  33|  -8|  43|  49|  17| -13| -29|
   1|  24| -46| -42|   3|  20|  46| -39|
column 1: max=  16
column 2: max=  45
column 3: max=  30
column 4: max=  43
column 5: max=  49
column 6: max=  41
column 7: max=  46
column 8: max=  43
Result array Z-
  16  45  30  43  49  41  46  43
https://ideone.com/JA9jsc
language:
Pascal (fpc 3.0.4)
created:
3 days 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!