44 балла Помогите решить две задачки (Паскаль) Задание 1Создать одномерный массив…

Const n=7; m=5; var a: array[1… n, 1… m] of integer; min2_j, max5_i, i, j, p: integer; c: char; begin min2_j: =1; max5_i: =1; for i: =1 to n do begin writeln; for j: =1 to m do begin a[i, j]: =random (50); write (a[i, j]: n); if (i=2) and (a[2, min2_j] > a[i, j]) then min2_j: =j; if (j=5) and (a[max5_i, 5] < a[i, j]) then max5_i: =i; end; end; i: =a[2, min2_j]; a[2, min2_j]: =a[max5_i, 5]; a[max5_i, 5]: =i; writeln; p: =1; for i: =1 to n do begin writeln; for j: =1 to m do begin write (a[i, j]: n); if (i=j) then p: =p*a[i, j]; end; end; a[1, 3]: =p; writeln; for i: =1 to n do begin writeln; for j: =1 to m do write (a[i, j]: n); end; end.