Что тут не так? ? program runa; const n=5; m=5; var a: array[1..n,1..m] of real; i,j: integer; begin writeln('матрица a(5x5)'); for i: =1 to n do for j: =1 to m do begin write ('a[ ',i,',',j,' ] '); readln (a[i,j]); end; write(a[i,j] : 2 : 0, ' '); writeln; begin for i: =1 to n do for j: =1 to m do begin max: =1; if max writeln ('max= ',max); end; end; end. в строчке max: =1; выдает что отсутствует переменная

Вразделе var нужно описать переменную max. program runa; const   n=5;   m=5; var        a: array[1..n,1..m] of real;   i,j: integer;   max: real; begin   writeln('матрица a(5x5)');   {считываем матрицу с экрана}   for i: =1 to n do       for j: =1 to m do       begin           write ('a[ ',i,',',j,' ] = ');           readln (a[i,j]);       end;   {присваиваем минимальное значение максимуму}        max: =0;         for i: =1 to n do       for j: =1 to m do         {если в матрице число больше максимума - присваиваем максимуму значение из матрицы}         if (a[i,j]> max) then max: =a[i,j];           {если максимум не 0 - значит в матрице есть положительные числа, выводим максимум}        if max> 0 writeln ('max= ',max) else       writeln('положительных элементов нет'); end.

11001101 - н   кодировка кодом ascll 11000000 - а . . - с   азбука морзе _   - т 33 - я   шифр