Не могу решить программу в Turbo Pascal помогите пожалуйста! Заранее благодарен...

[dolbi]

Найти МАХ элемент среди минимальных элементов столбцов двумерного массива. Определить номер строки и столбца для такого элемента.(целые числа) Please!!!

[Xardas]

Что конкретно не получается? Выложите свой код. Поиск минимального и максимального значений в массиве - классическая задача, встречающаяся в любой книге по программированию.

[dolbi]

просто, понимаете, информатика - к сожалению, для меня далекая дисциплина... помогите пожалуйста!!!

[Xardas]

const n=10;
var
i,j,imax,jmax:integer;
a:array[1..n,1..n] of integer;
begin
min:=a[1,1]; max:=a[1,1]; imax:=1; jmax:=1;
for j:=1 to n do begin
for i:=1 to n do
if a[i,j]<min then min:=a[i,j]
if min[i,j]>max then 
begin
max:=min[i,j]
imax:=i;
jmax:=j
end;
end;
end.

Писал второпях, не проверял... С размерностями массивов, вводом и выводом, думаю, разберетесь.

[dolbi]

Может кто-нибудь еще сможет дополнить? Помогите чем можете!?

[Stilet]

Вот старый пример из лаб:

var a:array[1..10,1..10] of integer; min, max,i,j:integer;
begin
randomize;
for i:=1 to 10 do begin
 for j:=1 to 10 do begin
  a[i,j]:=random(100);
  if (j=1) then begin min:=a[i,j];end;
  if a[i,j]<min then min:=a[i,j];
  write(a[i,j]:5);
 end;writeln('============',min);
 if min>=max then max:=min
end;
writeln(max);
 readln;
end.

Чего тут еще дополнять то?

if min[i,j]>max then

Это как?