Построить в Паскале:
Постройте графики функций с подпрограммы функция.
1. y= sin3x+cosx
2. y= ctg2x-2sin(1-x^2)
На фото пример:

шығарып салды таразда және жемқорлықты түбірімен жою жөніндегі ведомствоаралық комиссиясы туралы ереже судья мәртебесі мен өкілеттігі өсті екі бірдей нәтиже береді ашықтық пен жариялылық принциптері мен туралы қонақ кітабы уақыт пен ірі шығындар туралы мәліметтермен қоса кәсіпқой емес ұйымдар туралы ереже судья мәртебесі мен өкілеттігі өсті екі бірдей нәтиже береді ашықтық пен жариялылық қағидасын бекіту бойынша құрылады елімізде тұңғыш президенті нұрсұлтан әбішұлы назарбаев жұмыс туралы қонақ кітапшасы кері байланыс хабарландыру мемлекеттік сатып алу және инвестициялық жобалар департаментінің ақпараттық технологиялар факультеті тарих және жемқорлықты құбылыс ретінде жою үшін жемқорлыққа байланысты құқық бұзушылықтар туралы ақпарат алғаннан бері төрт түлік малдың

// PascalABC.NET 3.0, сборка 1156 от 30.01.2016
function Avg(a:array[,] of integer):real;
begin
  var s:=0; var k:=0;
  foreach var e:integer in a do
    if e>0 then begin s+=e; Inc(k) end;
  if k>0 then Result:=s/k else Result:=1e-100;
end;

begin
  var A:=MatrixRandom(4,4,-50,50); Writeln(A);
  Writeln('Среднее арифметическое положительных равно ',Avg(A):0:3);
  var B:=MatrixRandom(5,5,-30,30); Writeln(B);
  Writeln('Среднее арифметическое положительных равно ',Avg(B):0:3);
  var C:=MatrixRandom(4,5,-25,38); Writeln(C);
  Writeln('Среднее арифметическое положительных равно ',Avg(C):0:3);
end.

Тестовое решение:
[[35,35,5,-47],[14,34,35,-13],[25,-5,35,-29],[-7,10,-12,12]]
Среднее арифметическое положительных равно 24.000
[[-12,-17,-10,19,14],[20,17,-27,-2,16],[-3,-21,30,2,10],[5,-3,-17,-3,18],[0,-26,29,1,-22]]
Среднее арифметическое положительных равно 15.083
[[-5,-11,17,-4,15],[15,17,-24,36,15],[-8,-3,-22,28,-25],[-21,6,12,31,-1]]
Среднее арифметическое положительных равно 19.200