Выделить всё
program maxElement;
var i:integer; j:integer; max:integer;
A:array[1..4,1..4] of integer;
key:integer;
BEGIN
max := -999;
for i:=1 to 4 do
for j:=1 to 4 do
begin
write ('A[',i,',',j,'] = ');
read (A[i,j]);
end;
for i:=1 to 4 do
for j:=1 to 4 do
begin
if A[i,j] > max then
begin
max := A[i, j];
key := j;
end;
end;
writeln ('Столбец (', key, ') с max элементом (', max, '):');
for i:=1 to 4 do
writeln (A[i, key]);
END.