Матрица Опции

[1111]

Народ помогите пожайлуста дополнить эту программу(надо дополнить её выводом исходной матрицей) и посмотреть правильно ли я её сделал. Заранее всех благодарю.
Сама задача.
В данной действительной матрице 6х9 поменять местами строку, содержащую элемент с наибольши значение. предпологается, что эти элементы единственные.

Program matr;
var
mat:array[1..6,1..9] of integer;
max,b:integer;
j,i,maxj:byte;
BEGIN
    randomize;
  for i:=1 to 6 do
begin
  for j:=1 to 9 do
 begin
 mat[i,j]:=integer (random(100))-50;
  write(mat[i,j]:4,' ');
  end;
   writeln;
 end;
   max:=mat[1,1]; maxj:=1;
   for i:=1 to 6 do
   for i:=1 to 9 do
   if mat[i,j]>max then begin
   maxj:=j;
   max:=mat[i,j];
   end;
   end.

Сообщение отредактировано: 1111 - 30.10.2007 20:35

[КМА]

A стабильно, точно так же как и вводил(а) не подойдет? в смысле

for i:=1 to 6 do 
 begin
   for j:=1 to 9 do 
    write (mat [i, j], ' ');
   writeLn;  
 end

Это я про вывод. Про строку, сейчас что нибудь придумаем.

Добавлено через 7 мин.
Я у тебя ошибку нашел, вот здесь:

for i:=1 to 6 do
   for i:=1 to 9 do
   if mat[i,j]>max then begin
   maxj:=j;
   max:=mat[i,j];
   end;

Во втором цикле желательно бы использовать j. У меня еще вопрос, индекс строки это второй или первый? Т. е. сколько строк 6 или 9?

А integer тут при чем?

mat[i,j]:=integer (random(100))-50;

Сообщение отредактировано: КМА - 30.10.2007 23:45