Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- type
- arrayType = array[1..n] of integer;
- array2D = array[1..n] of arrayType;
- var
- arr : array2D;
- i, j : integer;
- max : arrayType;
- begin
- for i := 1 to n do for j := 1 to n do readln(arr[i][j]);
- for j := 1 to n do for i := 1 to n do
- begin
- if (arr[i][j] > max[j]) then
- begin
- max[j] := arr[i][j];
- end
- end;
- for i := 1 to n do writeln(max[i]);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement