минимал среди максимала

[vitik]

Дана целочисельная прямоугольная матрица.1,найти мин. елемент среди макс. прогу я попытался сделать
но

помогите разобраться можна ли в проге както сделать random чтоби матрицу не вводить вручную


как найти номер строки и столбца такого елемента

как удалить столбец в котором находиться максимальный елемент матрицы

program min max;

var a : array [1..100,1..100] of integer;
b : array [1..100] of integer;
i,j,n,m,min,max : integer;
begin

write('Êîëè÷åñòâî ñòðîê=');
readln(m);

write('Êîëè÷åñòâî ñòîëáöîâ â ñòðîêå=');
readln(n);


for i:=1 to m do
begin
writeln(i, '-àÿ ñòðîêà:');
for j:=1 to n do
begin
write(' ', j, '-ûé ñòîëáåö = ');
readln(a[i,j]);
end;
end;


for i:=1 to m do
begin
max:=a[i, 1];
for j:=2 to n do if a[i, j] > max then max := a[i, j];
b[i]:=max;
end;


min:=b[1];
for i:=2 to m do if b[i]<min then min:=b[i];


writeln('Îòâåò=',min);
readln;
end.

[Shift_sk]

поиск минимального максимального в рандомной матрице!

var a:array[1..100,1..100] of integer;
    i,j,n,m,n1,n2,n3,n4,min,max:integer;
begin
read(n,m);
for i:=1 to n do
 for j:=1 to m do
  a[i,j]:=random(100);
  min:=a[1,1];
  max:=a[1,1];
for i:=1 to n do begin
for j:=1 to n do begin
 if a[i,j]<min then begin min:=a[i,j]; n1:=i; n2:=j; end;
 if a[i,j]>max then begin max:=a[i,j]; n3:=i; n4:=j; end;
 end;
 end;
 writeln(max,' - максимальный элемент',n1,'- номер строки',n2,'- номер столбика');
  writeln(min,' - минимальный элемент',n3,'- номер строки',n4,'- номер столбика');
  end.

[vitik]

тепер я понял как всилить рандом в матрицу но как найти минимальный среди максимальных?

[Shift_sk]

я до сих пор не понел смысла фразы минимальный среди максимальных)????

[Hacker19_90]

Сообщение от Shift_sk

я до сих пор не понел смысла фразы минимальный среди максимальных)????

Может ТС надо найти максимальные в столбцах, а потом среди них минимальный?
ТС мы не телепаты выражайтесь конкретней!

[vitik]

да точнее будет (найти минимальный елемент среди максимальных елементов СТРОК)

[Shift_sk]

а так это легко!

for i:=1 to n do
begin
max:=a[i,1];
 for j:=1 to n do begin
if max>a[i,j] then max:=a[i,j];
end;
//создаем массив для максимальных элементов строк
s[i]:=max;
end;
mix:=s[1];
for i:=2 to n do 
if a[i]<min then min:=a[i];

вроде все. должно работать!
з.ы.это не программа а кусок от нее!

[vitik]

мне кажеться if s[i]<min then min:=s[i]; будет правильнее

[vitik]

read(n,m);

for i:=1 to n do

for j:=1 to m do

a[i,j]:=random(100);

min:=a[1,1];

max:=a[1,1];
for i:=1 to n do

begin

max:=a[i,1];

for j:=1 to n do begin

if max>a[i,j] then max:=a[i,j];

end;



s[i]:=max;

end;

max:=s[1];

for i:=2 to n do

if s[i]<min then min:=s[i];
writeln(min);
end.

[Shift_sk]

ну да...я просто не посматрел какой там массив!
ну что работает теперь как надо?