мне по информатике 8 класс угринович тема файл конспект краткий я сегодня же должен отправить

проверено на паскале авс: program studentka; uses crt; const n = 10; const m = 15; var  matrix: array [1..n,1..m] of integer;   i,j,max,odd: integer; begin  {заполняем массивы случайными числами}  randomize;   writeln('массив а: ');   for i: =1 to n do      begin          for j: =1 to m do          begin              matrix[i,j]: =random(101)-50;               write(matrix[i,j]: 4);           end;           writeln();       end; {просматриваем столбцы}  writeln('нечётные элементы каждого столбца: ');   for j: =1 to m do      begin          odd: =0;           for i: =1 to n do              begin                   if matrix[i,j] mod 2 < > 0 then odd: =odd+1;               end;           write(odd: 4);       end;   writeln();   {просматриваем нечётные строки}  writeln('максимум из отрицательных элементов в нечётных строках: ');   for i: =1 to n do       begin          if i mod 2 = 1 then               begin                   max: =-99;                   for j: =1 to m do                      begin                           if (matrix[i,j]< 0) and (matrix[i,j]> max) then                               max: =matrix[i,j];                             end;                   if max=-99 then                             writeln('строка ',i,' не содержит отрицательных элементов')                      else                           writeln('строка ',i,'    максимум=',max);               end;       end; end.