ДАЮ 30ББМожно быстр Информатика,кім біледі,подписаться етемн) Дұрс болса *лучший ответ* қылам ))​

Const   k = 7;   p = 10; var   i, j, e, max, min: integer;   f: array[1..k, 1..p] of integer; begin   randomize;   writeln('исходная матрица');   max : = -32768;   min : = 32767;   for i : = 1 to k do   begin       for j : = 1 to p do       begin           e : = random(100) - 50;           if e > max then max : = e           else if e < min then min : = e;           write(e: 4);           f[i, j] : = e       end;       writeln   end;   f[1, p] : = max;   f[k, 1] : = min;   writeln('результирующая матрица');   for i : = 1 to k do   begin       for j : = 1 to p do           write(f[i, j]: 4);       writeln   end end. тестовое решение: исходная матрица   34  36  41    9  -4  39  29    1  15 -33   13  -9 -29  28 -45  -1    8  38  37  12   -33  45    3  35 -47 -14 -30  49 -29  -6   -50 -49  42  15  46    4  24 -21 -10  23   -14  30 -14 -46  33 -26  24    2  -3 -31   -27  15  47  25 -43  39 -17 -44    6 -40   19  30 -20 -29 -34  12  -2    5  32    0 результирующая матрица   34  36  41    9  -4  39  29    1  15  49   13  -9 -29  28 -45  -1    8  38  37  12   -33  45    3  35 -47 -14 -30  49 -29  -6   -50 -49  42  15  46    4  24 -21 -10  23   -14  30 -14 -46  33 -26  24    2  -3 -31   -27  15  47  25 -43  39 -17 -44    6 -40   -50  30 -20 -29 -34  12  -2    5  32    0