Прикладные программы для выполнения на компьютере конкретных . 10 букв

Приложения разве что

Приложения-компоненты программного обеспечения. ответ будет-приложения.

// pascalabc.net 3.1, сборка 1219 от 16.04.2016 begin   var a: =arrrandom(40,-12,12).where(x-> abs(x)> =2).take(20).toarray;   a.sorted.println;   var sn: =abs(a.where(x-> x< 0).sum);   var sp: =abs(a.where(x-> x> 0).sum);   if sn> sp then writeln('модуль суммы отрицательных чисел больше')   else       if sn< sp then writeln('модуль суммы положительных чисел больше')       else writeln('модули сумм положительных и отрицательных чисел равны') end. тестовое решение: -12 -10 -7 -7 -4 3 4 5 5 5 6 6 6 8 9 9 10 10 11 11 модуль суммы положительных чисел больше

Function square(x1, y1, x2, y2, x3, y3: real): real; begin        square : = abs((x2 - x1) * (y3 - y1) - (x3 - x1) * (y2 - y1)) / 2; end; var      x1, y1, x2, y2, x3, y3, s1, s2: real; begin      write('задайте первый треугольник(x1,y1,x2,y2,x3,y3): ');       readln(x1, y1, x2, y2, x3, y3);       s1 : = square(x1, y1, x2, y2, x3, y3);       write('задайте второй треугольник(x1,y1,x2,y2,x3,y3): ');       readln(x1, y1, x2, y2, x3, y3);       s2 : = square(x1, y1, x2, y2, x3, y3);       if s1 > s2 then writeln('площадь первого треугольника больше')      else if s1 < s2 then writeln('площадь второго треугольника больше')      else writeln('площади треугольников равны'); end. p.s. проверять существуют ли такие треугольники не нужно, т.к. они уже заданы и нам нужно определить площадь большего.