В матрице A[1..N,1..M] определить минимальный элемент каждой строки. Вывести строку с максимальным минимумом.
Program n1;
Uses Crt;
const
n=4;
m=5;
k=4;
Var a:array[1..10,1..10] of integer;
b:array[1..10] of integer;
i,j,max,min,imax,imin:integer;
begin
Clrscr;
for i:=1 to m do
for j:=1 to n do begin
a[i,j]:=random(20);
end;
writeln('ìàòðèöà');
for i:=1 to m do begin
for j:=1 to n do begin
write(a[i,j]:10);
for i := 1 to n do begin
min := MaxInt;
imin := 0;
for j := 1 to m do begin
read(a[i,j]);
if a[i,j] < min then begin
min := a[i,j];
imin := j;
end;
end;
if min > max then begin
min := max;
imax := i;
end;
end;
end;
writeln;
for i := 1 to m do begin
write(a[imax,i],' ');
end;
end;
readln;
readln;
end.
Она работает но не верно. что не так не пойму. это задание в универе, я шарю плохо, помогите и самое главное обьясните, по русски, без жаргона. Надеюсь на помощь. Спасибо.
Добавлено через 1 мин.
Нужно что бы матрица создавалась рандомно, а мы в коде указывали лишь ее размеры. т.е при нажатии только одной кнопки пуск программа полностью выполняла все действия, без ввода данных.