program lab5(input, output);
const
	n = 7;
	m = 8;
var
	Y: array[1..n, 1..m] of integer;
	Z: array[1..m] of integer;
	i, j, max_val: integer;
begin 
	randomize;
 
for i := 1 to n do
for j := 1 to m do 
Y[i, j] := random(100)-50;
writeln('Matrix',n,'*',m, 'Y=');
for i := 1 to n do
begin 
for j := 1 to m do 
write(Y[i, j]:3, '|' );
writeln;
end;
for j := 1 to m do 
begin 
max_val := Y[i, j];
for i := 2 to n do
begin 
if Y[i, j] > max_val then 
max_val := Y[i, j];
end;
Z[j] := max_val;
writeln('colum',j,'max=',Z[j]:3)
end;
writeln('Result:');
for j := 1 to m do 
write(Z[j]:4);
writeln;
readln;
end.
 

cHJvZ3JhbSBsYWI1KGlucHV0LCBvdXRwdXQpOwpjb25zdAoJbiA9IDc7CgltID0gODsKdmFyCglZOiBhcnJheVsxLi5uLCAxLi5tXSBvZiBpbnRlZ2VyOwoJWjogYXJyYXlbMS4ubV0gb2YgaW50ZWdlcjsKCWksIGosIG1heF92YWw6IGludGVnZXI7CmJlZ2luIAoJcmFuZG9taXplOwogCmZvciBpIDo9IDEgdG8gbiBkbwpmb3IgaiA6PSAxIHRvIG0gZG8gCllbaSwgal0gOj0gcmFuZG9tKDEwMCktNTA7CndyaXRlbG4oJ01hdHJpeCcsbiwnKicsbSwgJ1k9Jyk7CmZvciBpIDo9IDEgdG8gbiBkbwpiZWdpbiAKZm9yIGogOj0gMSB0byBtIGRvIAp3cml0ZShZW2ksIGpdOjMsICd8JyApOwp3cml0ZWxuOwplbmQ7CmZvciBqIDo9IDEgdG8gbSBkbyAKYmVnaW4gCm1heF92YWwgOj0gWVtpLCBqXTsKZm9yIGkgOj0gMiB0byBuIGRvCmJlZ2luIAppZiBZW2ksIGpdID4gbWF4X3ZhbCB0aGVuIAptYXhfdmFsIDo9IFlbaSwgal07CmVuZDsKWltqXSA6PSBtYXhfdmFsOwp3cml0ZWxuKCdjb2x1bScsaiwnbWF4PScsWltqXTozKQplbmQ7CndyaXRlbG4oJ1Jlc3VsdDonKTsKZm9yIGogOj0gMSB0byBtIGRvIAp3cml0ZShaW2pdOjQpOwp3cml0ZWxuOwpyZWFkbG47CmVuZC4K