Напишите программы для решения . используйте операция div и mod. 1.задано двузначное число. найдите среднее арифметическое цифр числа. 2.задано двузначное число. найдите разность между количеством десятков и единиц.

1) program n1; var a: integer; begin readln(a); write((a mod 10 +a div 10)/2); end. 2) program n2; var a: integer; begin readln(a); write(a div 10-a mod 10); end.

№1

var a: integer;

begin

  readln(a);

  div 10)+(a mod 10))/2);

end.

№2

var a: integer;

begin

  readln(a);

  writeln(a div 10 - a mod 10);

end.

Сортировка методом пузырька (по возрастанию)procedure massivsort(var arr : array of real; const n : integer); var      i:   integer;       j:   integer;       k:   integer;       m:   real; begin      for i: =1 to n do      begin          m: =arr[i-1];           k: =i;           for j: =i to n do          begin              if m> arr[j-1] then              begin                  m: =arr[j-1];                   k: =j;               end;           end;           arr[k-1]: =arr[i-1];           arr[i-1]: =m;       end; end; сортировка по убыванию: procedure sort; var i , j , tmp : integer; begin     for i : = 1 to n - 1 do         for j : = i + 1 to n do             if a[i] < a[j] then begin                 tmp : = a[i];                 a[i] : = a[j];                 a[j] : = tmp;             end;