Написать и отдалить программу для вычислений массива z: zi=a*cos(xi)+b/xi-a, i=1, в случае сбойной ситуации принять zi=0 для проверки использовать следующие данные: xi={1; 2.3; 0.5; 5.3; 6; -3; -8} ; a=0.5; b=1.5

//pascalabc.net (версия 3.1, сборка 1210 от 29.03.2016) var n,i: integer; p: biginteger; begin   p: =1;   write('введите n '); readln(n);   if n mod 2< > 0 then i: =1 else i: =2;           while i< =n do begin               p: =p*i;               i: =i+2;           end;       writeln(p); end. тест №1 введите n 6 48 тест №2 введите n 5 15

//это человечек в  профиль. //pascal abc.net v3.1 сборка 1172 uses   graphabc; var   i: integer; begin maximizewindow;   for i: =100 to 500 do   begin     clearwindow();     setbrushcolor(clgold);     circle(i,i,10);     circle(i,i+30,6);     circle(i,i+65,6);     setbrushcolor(clgray);     ellipse(i-15,i+10,i+15,i+60);     setbrushcolor(clgold);     circle(i,i+30,6);     sleep(40);   end; end.