Матрица, максимум строк Опции

[mikle]

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

program pract11_4;
const n=3;m=3;
type mas=array[1..n,1..m] of integer;
     mas2=array[1..n] of integer;
function max(n:byte;a:mas):integer;
var i,j:integer;mix:integer;
begin
mix:=a[1,j];
for i:=2 to n do
for j:=1 to m do begin
if a[i,j]>mix then mix:=a[i,j];
max:=mix;
end;
end;
var i,j:integer;k1:byte;a:mas;
begin
for i:=1 to n do
for j:=1 to m do
begin
writeln('wwedite ',i,',',j,' element matrici');
read(a[i,j]);end;
for i:=1 to n-1 do
for j:=1 to m do begin
if a[i,j]<a[i+1,j] then begin
k1:=k1+1;end;end;
if k1=n-1 then begin max(n,a);
end;
writeln('max= ',max(n,a):6);
end.

.

[мисс_граффити]

1. Сделай нормальное форматирование - не видно, какой begin к какому end относится
2.

function max(n:byte;a:mas):integer;
var i,j:integer;mix:integer;
begin
mix:=a[1,j]; {чему здесь, по-твоему, равно j?}
for i:=2 to n do {почему с 2?}
for j:=1 to m do begin
if a[i,j]>mix then mix:=a[i,j];
max:=mix;
end;
end;

3.

k1:=k1+1;end;end;
if k1=n-1 then begin max(n,a);

а обнулять k1 для каждой строчки кто будет?
и ты, кстати, m и n не перепутал? n-это число строк, а не число элементов в строке... то есть ты сравниваешь не по строкам, а по столбцам.

Сообщение отредактировано: мисс_граффити - 25.02.2007 12:50

[Bokul]

При ввводе таким образом получаем ошибку №85 на строке

var  M:TMatrix=((3,4,55,112,442),(2,3,1,0,4),(3,5,15,16,500),(1,10,9,0,110),(4,44,45,
46,47));

Замени var на const, но потом все равно не забудь поставить var. Хотя результат и так будет не верным.

PS хочешь помощи, обращай внимание на замечания:

1. Сделай нормальное форматирование - не видно, какой begin к какому end относится