Найти максимальный элемент матрицы, лежащий выше главной диагонали - Turbo Pascal

Формулировка задачи:

задание: Найти максимальный элемент матрицы, лежащий выше главной диагонали. Ввод данных организовать из файла "in.txt", вывод данных в файл "out.txt". Выводит только "0", хотя максимальное число не 0. Помогите пожалуйста. Завтра сдавать, а то к сессии не допустят
program mas;
var M: array [1..6,1..6] of integer;
    i,j,max,min:integer;
    f,s: text;
 
begin
    assign(f,'in.txt');
    reset(f);
    read(f,i,j);
 
     max:=M[i,j];
     for i := 1 to 6 do
         begin
           for j := 1 to 6 do
             begin
              if(i<j)and (M[i,j] > max) then
              max:=M[i,j];
             end;
         end;
         close(f);
         assign(s,'out.txt');
         rewrite(s);
         
 
    write(s,max);
    close(s);
end.

Код к задаче: «Найти максимальный элемент матрицы, лежащий выше главной диагонали - Turbo Pascal»

textual
program mas;
 uses crt;
 var M               : array [1..6,1..6] of integer;
     i,j,max,st      : integer;
     f,s             : text;
 
 begin
 clrscr;
 assign(f,'in.txt');reset(f);
 assign(s,'out.txt');rewrite(s);
 st:=0;
 writeln('Массив М из файла "in.txt"');
 for i := 1 to 6 do
  begin
    for j := 1 to 6 do
      begin
        read(f,m[i,j]);write(m[i,j]:3);
        begin
          if(i<j) then
           begin
             if st=0 then
               begin
                 st:=1;max:=M[i,j];                                                                                                      
               end
                     else
               begin
                 if max<M[i,j] then max:=M[i,j];
               end;
           end;
        end;
      end;writeln;
  end;
 writeln;
 writeln('Максимальный выше главной диагонали:',max:5);
 write(s,max);
 close(f);
 close(s);
 readln;
 end.

7   голосов, оценка 4.143 из 5


СОХРАНИТЬ ССЫЛКУ