Напишите программу переместить максимальный элемент матрицы f(k, p) в правый верхний угол а минимальный элемент- в левый нижний

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

Const   k = 3;   p = 3; var   f: array [1..k, 1..p] of byte;   mini: array [1..2] of byte : = (1, 1);   maxi: array [1..2] of byte : = (1, 1); procedure swap(var a, b: integer); var   p: integer; begin   p : = a;     a : = b;     b : = p; end; begin   for i: byte : = 1 to k do   begin     for j: byte : = 1 to p do     begin       f[i, j] : = random(10, 100);       write(f[i, j]: 3);       if (f[mini[1], mini[2]] > f[i, j]) then       begin         mini[1] : = i;         mini[2] : = j;       end;       if (f[maxi[1], maxi[2]] < f[i, j]) then       begin         maxi[1] : = i;         maxi[2] : = j;       end;     end;     writeln();   end;   writeln();       swap(f[1, p], f[maxi[1], maxi[2]]);   swap(f[p, 1], f[mini[1], mini[2]]);       for i: byte : = 1 to k do   begin     for j: byte : = 1 to p do       write(f[i, j]: 3);     writeln();   end; end.

Var a,b,c: integer; begin; readln(a); readln(b); readln(c); if (a mod 2=0) and (b mod 2=0) and (c mod 2=0) then writeln('ура')   else     if ((a mod 2=0) and (b mod 2=0)) or ((a mod 2=0) and (c mod 2=0)) or ((b mod 2=0) and (c mod 2=0)) then writeln('уже хорошо')     else       if (a mod 2=0) or (b mod 2=0) or (c mod 2=0) then writeln('не все так плохо')       else         writeln('повезет в следующий раз'); end.

Если число 49 записывается как 121, значит первый остаток от деления равен 1, то есть основанием системы счисления является число, кратное 48. 121 имеет 3 разряда, значит основание однозначно меньше 10 и больше 2. подходят 3, 4, 6, 8. учитывая, что в числе  121 три разряда, значит число 48 делилось всего три раза.  число 8 не подойдет, т.к. 48/8=6, значит будет всего два деления. число 3 не подойдет, т.к. 48/3 = 16, 16/3=5 - то есть тут будет больше трёх знаков. число 4 не подойдет, т.к. 48/4=12, а 12 делится на 4 без остатка, но, судя по числу, во втором делении остаток должен быть равен 2. остаётся число 6. проверим 49/6=8 |1 8/6 = 1 |2 1/6=0 |1 121(6)