30
дана прямоугольная матрица а[1..n,1..m] ,заполненная случайными числами в диапазоне от 10 до 40 включительно. вывести на экран матрицу, максимальный элемент данной матрицы в каждой строке​

  program proga_25_1;   var a: text;       i,j,n,m : byte;         d: string;       sim: char;   begin              write('введите имя текстового файла   ');   {например: "test" он создастся там где находится сама программа }                read(d);                                             assign(a,d);                   rewrite(a);                       write('введите количество строк: n= ');                           readln(n);                       write('введите количество символов в строке: m= ');                         readln(m);                                         for i: =1 to n do                      begin                            sim: =chr(ord('1')+i-1);                             for j: =1 to m do                                write(a,sim);                                   writeln(a);                     end;                             close(a); end.      

  program proga;     var   a: text;       i,j,n,m : byte;         d: string;         sim: char;   begin              write('введите имя текстового файла   ');   {например: "test" он создастся там где находится сама программа }                read(d);                                             assign(a,d);                   rewrite(a);                       write('введите количество строк: n= ');                           readln(n);                       write('введите количество символов в строке: m= ');                           readln(m);                                         for i: =1 to n do                      begin                            sim: =chr(ord('1')+i-1);                             for j: =1 to m do                                write(a,sim);                                 writeln(a);                       end;                             close(a); end.