Advertisement
knyazer

Untitled

Dec 17th, 2019
124
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.40 KB | None | 0 0
  1. type
  2.   arrayType = array[1..n] of integer;
  3.   array2D = array[1..n] of arrayType;
  4.  
  5. var
  6.   arr : array2D;
  7.   i, j : integer;
  8.   max : arrayType;
  9.  
  10. begin  
  11.   for i := 1 to n do for j := 1 to n do readln(arr[i][j]);
  12.  
  13.   for j := 1 to n do for i := 1 to n do
  14.   begin
  15.    if (arr[i][j] > max[j]) then
  16.    begin
  17.     max[j] := arr[i][j];
  18.    end
  19.   end;
  20.  
  21.   for i := 1 to n do writeln(max[i]);
  22.  
  23. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement