Какие изменения нужно внести в программу из примера 17.1 для того, чтобы рисунок выглядел следующим образом? ​ ((

//pascal abc.net v3.1 сборка 1172 const n=3; //количество строк m=4; //количество столбцов var   f: text;   ma: array[1..n,1..m] of integer;   i,j,s: integer; begin   assign(f,'matrix.txt');   reset(f);   for i: =1 to n do   begin   for j: =1 to m do     begin     read(f,ma[i,j]);     s: =s+ma[i,j];     end;   end;   close(f);   for i: =1 to n do   begin   writeln;   for j: =1 to m do     write(ma[i,j]: 4);   end;   writeln;   write(s); end. matrix.txt: 1 2 3 4 4 5 6 4 7 8 9 4 вывод программы:     1    2    3    4     4    5    6    4     7    8    9    4 57

Если паскаль, во первых для генерации рандомного числа используется метод random(x), но он генерирует число от 1 до x, и чтоб он генерировал от какого то определенного, надо из x вычесть от какого числа генерировать, а потом к сгенерированному прибавить его random(x - n) + n. где x - до какого числа, а n - от какого.  для нахождения максимального числа мы будем использовать метод max, который принимает два аргумента (какие числа надо сравнить), допустим max(5,10) вернет 10, max(-1, -5) вернет -1. так же есть min - нахождение минимального. а теперь сам код: begin var a : = random(30) + 10;   var b : = random(30) + 10; writeln('a: ' + a);   writeln('b: ' + b); writeln(max(a,b));   end. если не сложно нажми "" ; )