Найти максимальный среди элементов тех столбцов, которые упорядочены либо по возрастанию, либо по убыванию.

[ALEXandr20333]

Дана матрица размера MxN. Найти максимальный среди элементов тех столбцов, которые упорядочены либо по возрастанию, либо по убыванию. Если упорядоченные столбцы в матрице отсутствуют, то вывести 0.

[Bugrimov]

Здорово!!! Язык программирования???

[009]

Язык программирования???

попробую угадать:

var a:array[1..100,1..100] of integer;
var i,j,n,m,t,max,f,f1,f2:integer;

begin
write('M='); read(m);
write('N='); read(n);
for i:=1 to m do
  for j:=1 to n do begin
  write('a[',i,',',j,']=');
  read(a[i,j]);
end;
writeln('Исходная матрица');
for i:=1 to m do begin
  for j:=1 to n do 
  write(a[i,j],' ');
  writeln;
end; 
for j:=1 to n do begin
f1:=0;f2:=0;t:=a[1,j];
for i:=2 to m do begin
if a[i,j]>t then t:=a[i,j];
if a[i,j]>=a[i-1,j] then f1:=1;
if a[i,j]<=a[i-1,j] then f2:=1;
end;
if (f1=0) or (f2=0) then 
if f=0 then begin
f:=1; max:=t;
end
else
if max<t then t:=max;
end; 
if f=0 then writeln('0')
else writeln(max);
readln;
end.

[Serge_Bliznykov]

попробую угадать:

я вангую - Вы НЕ угадали!
на 99% я уверен, что ему нужно на Delphi, причём обязательно на форме...