1) 12 div 3 2) 4 mod 2 3) abs (9.7) 4) abs(-3.14) 5) frac(7.45) 6) frac(4.5) 7) int(6.98) 8) int(6.1) 9) round(7.3) 10) sqr(7)

1) 4 2) 0 3) 9,7 4) 3,14 5) 0,45 6) 0,5 7) 6 8) 6 9) 7 10) 49

//pascal abc.net v3.1 сборка 1172 var   ar: array of array of integer;   n, m, i, j: integer; begin   read(n, m);   setlength(ar, n);   for i : = 0 to n - 1 do       setlength(ar[i], m);   writeln('enter matrix: ');   for i : = 0 to n - 1 do   begin       writeln;       for j : = 0 to m - 1 do           read(ar[i, j]);   end;   writeln;   writeln('first matrix: ');   for i : = 0 to n - 1 do   begin       writeln;       for j : = 0 to m - 1 do           write(ar[i, j]: 4);   end;   writeln;   writeln('final matrix: ');   for i : = 0 to n - 1 do   begin       writeln;       for j : = 0 to m - 1 do       begin           if ar[i, j] mod 2 = 0 then ar[i, j] : = ar[i, j] div 2;           write(ar[i, j]: 4);       end;   end; end. пример ввода: 2 3 enter matrix: 1 2 3 4 5 6 пример вывода: first matrix:     1    2    3     4    5    6 final matrix:     1    1    3     2    5    3