Решить trunc(6, 9) trunc(6, 2) round(6, 9) 20 div 6 20 mod 6 2 div 5 2 mod 5

trunk - возвращает целую часть числа

round - округление

div - целая часть

mod - остаток

таким образом

trunc(6,9)=6

trunc(6,2)=6

round(6,9)=7

20 div 6=3

20 mod 6=2

2 div 5=0

2 mod 5=2

const

  n = 10;

var

  a: array[1..n] of integer;

  i, j: integer;

begin

  randomize;

  writeln('исходный массив: ');

  for i : = 1 to n do

  begin

    a[i] : = random(101);

    write(a[i], ' ');

  end;

   

  for i : = 1 to n - 1 do

    for j : = 1 to n - i do

      if a[j] mod 10 > a[j + 1] mod 10 then

      begin

        a[j] : = a[j] + a[j + 1];

        a[j + 1] : = a[j] - a[j + 1];

          a[j] : = a[j] - a[j + 1];

      end;

 

  writeln;

  writeln('результат: ');

  for i : = 1 to n do

    write(a[i], ' ');

  writeln;

end.

var      a: array [1..10] of integer;       i, j, n, temp: integer; begin      randomize();       n : = 10;       for i : = 1 to n do       begin              a[i] : = random(100);               write(a[i], ' ');       end;             for j : = 1 to n - 1 do       begin              for i : = 1 to n - j do               begin                      if a[i] mod 10 < a[i + 1] mod 10 then begin                              temp : = a[i];                               a[i] : = a[i + 1];                               a[i + 1] : = temp;                       end;               end;       end;             writeln();       for i : = 1 to n do               write(a[i], ' '); end.