Паскаль! массив 5х5 заполнить случайными числами [-10; 10]. поменять максимальное отрицательное число над второстепенной диагональю (не включая её) и минимальное положительное число под второстепенной диагональю (не включая её

Var a,b,c,k: integer; begin write('a = '); readln(a); write('b = '); readln(b); write('c = '); readln(c); write('k = '); readln(k); if k=1 then     begin     if a < b then a: =b;     write('p = ',a)     end else     if k=2 then           begin           if a < b then a: =b;           if a < c then a: =c;           write('p = ',a);           end; end.

Const n = 13; var a,b: array[1..n] of integer; i,j: integer; begin write('исходный массив:           '); for i: = 1 to n do       begin       a[i]: =random(50);       write(a[i]: 3)       end; writeln; write('переработанный массив: '); j: =0; for i: = 1 to n do       if a[i]> =15 then             begin             j: =j+1;             b[j]: =a[i]             end; for j: = 1 to j do       write(b[j]: 3) end. пример: исходный массив:             29  8 19  3  0 11 39  9 34  4 45 15  3 переработанный массив: 29 19 39 34 45 15