Помощь - Поиск - Пользователи - Календарь
Полная версия: Поиск min/max в матрице
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Xal
есть такая задача.
В матрице 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 мин.
Нужно что бы матрица создавалась рандомно, а мы в коде указывали лишь ее размеры. т.е при нажатии только одной кнопки пуск программа полностью выполняла все действия, без ввода данных.
Lapp
М
Просьба ознакомиться с Правилами (в том числе п.4) и соблюдать их. На этот раз я исправил сам



Цитата(Xal @ 8.12.2009 22:34) *
Она работает но не верно.
Я бы не стал называть это "работой" smile.gif. Ты совсем запутался в циклах. Я исправил, попробуй разобраться. Что неясно - спрашивай.

Program n1;
const
n= 4;
m= 5;
Var
a: array[1..n,1..m] of integer;
i,j,min,imax,jmax: integer;
begin
Randomize;
for i:= 1 to n do for j:= 1 to m do a[i,j]:=random(20);
writeln('iao?eoa');
for i:= 1 to n do begin
for j:= 1 to m do write(a[i,j]:4);
WriteLn
end;
imax:= 1;
for i:= 1 to n do begin
min:= 1;
for j:= 2 to m do if a[i,j] < a[i,min] then min:= j;
if i=1 then jmax:= min
else if a[i,min] > a[imax,jmax] then begin
imax:= i;
jmax:= min
end
end;
writeln;
for j:= 1 to m do write(a[imax,j]:4);
readln;
end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.