Приложение 3

program d1;

uses crt;

var f,z:real;

g:array[1..200] of real;

i:integer;

begin

clrscr;

g[1]:=2.05; g[2]:=2.11; g[3]:=1.73; g[4]:=1.43; g[5]:=1.19; g[6]:=0.96;

g[7]:=0.91; g[8]:=0.9; g[9]:=0.81; g[10]:=0.57; g[11]:=0.46; g[12]:=0;

g[13]:=-0.24; g[14]:=-0.39; g[15]:=-0.64; g[16]:=-0.91; g[17]:=-1.05;

g[18]:=-1.14; g[19]:=-1.59; g[20]:=-1.37; g[21]:=-1.11; g[22]:=-1.05;

g[23]:=-0.96; g[24]:=-0.92; g[25]:=-0.68; g[26]:=-0.59; g[27]:=-0.57;

g[28]:=-0.48; g[29]:=-0.58; g[30]:=-0.68; g[31]:=-0.73; g[32]:=-0.93;

g[33]:=-0.91; g[34]:=-0.74; g[35]:=-0.32; g[36]:=-0.17; g[37]:=0.29;

g[38]:=0.46; g[39]:=0.43; g[40]:=0.31; g[41]:=0.17; g[42]:=0; g[43]:=-0.11;

g[44]:=-0.36; g[45]:=-0.57; g[46]:=-0.71; g[47]:=-0.68; g[48]:=-0.62;

g[49]:=-0.46; g[50]:=-0.23; g[51]:=-0.14; g[52]:=0; g[53]:=0.62; g[54]:=1.14;

g[55]:=1.37; g[56]:=1.59; g[57]:=1.71; g[58]:=1.82; g[59]:=1.94; g[60]:=1.98;

g[61]:=2.05; g[62]:=1.96; g[63]:=1.88; g[64]:=1.76; g[65]:=1.62; g[66]:=1.48;

g[67]:=1.37; g[68]:=1.16; g[69]:=1.08; g[70]:=0.96; g[71]:=0.59; g[72]:=0.29;

g[73]:=0; g[74]:=-0.14; g[75]:=-0.27; g[76]:=-0.29; g[77]:=-0.52;

g[78]:=-0.95; g[79]:=-1.19; g[80]:=-1.41; g[81]:=-1.86; g[82]:=-2.11;

g[83]:=-2.21; g[84]:=-2.30; g[85]:=-2.23; g[86]:=-2.11; g[87]:=-1.98;

g[88]:=-1.91; g[89]:=-1.86; g[90]:=-1.43; g[91]:=-0.98; g[92]:=-0.29;

g[93]:=0; g[94]:=0.6; g[95]:=0.82; g[96]:=1.41; g[97]:=1.66; g[98]:=1.77;

g[99]:=1.87; g[100]:=1.96; g[101]:=1.94; g[102]:=1.82; g[103]:=1.59;

g[104]:=1.48; g[105]:=1.08; g[106]:=0.91; g[107]:=1.04; g[108]:=1.37;

g[109]:=1.25; g[110]:=0.97; g[111]:=0.57; g[112]:=0.39; g[113]:=0.32;

g[114]:=0.14; g[115]:=0; g[116]:=-0.23; g[117]:=-0.51; g[118]:=-0.64;

g[119]:=-0.91; g[120]:=-1.05; g[121]:=-1.08; g[122]:=-1.25; g[123]:=-1.48;

g[124]:=-1.25; g[125]:=-0.91; g[126]:=-0.64; g[127]:=-0.5; g[128]:=-0.27;

g[129]:=-0.11; g[130]:=-0.23; g[131]:=-0.39; g[132]:=-0.13; g[133]:=0;

g[134]:=0.17; g[135]:=0.46; g[136]:=0.57; g[137]:=0.63; g[138]:=0.71;

g[139]:=0.55; g[140]:=0.36; g[141]:=0.51; g[142]:=0.64; g[143]:=0.81;

g[144]:=0.97; g[145]:=1.03; g[146]:=1.05; g[147]:=1.06; g[148]:=1.03;

g[149]:=0.89; g[150]:=0.57; g[151]:=0.23; g[152]:=0.16; g[153]:=0.09;

g[154]:=0.06; g[155]:=-0.13; g[156]:=-0.26; g[157]:=-0.46; g[158]:=-0.57;

g[159]:=-0.79; g[160]:=-0.91; g[161]:=-1.03; g[162]:=-1.25; g[163]:=-0.91;

g[164]:=-0.57; g[165]:=-0.34; g[167]:=-0.11; g[168]:=0; g[169]:=0.11;

g[170]:=0.29; g[171]:=0.43; g[172]:=0.64; g[173]:=0.82; g[174]:=0.91;

g[175]:=0.93; g[176]:=0.97; g[177]:=0.92; g[178]:=0.84; g[179]:=0.74;

g[180]:=0.72; g[181]:=0.69; g[182]:=0.51; g[183]:=0.43; g[184]:=0.26;

g[185]:=0.15; g[186]:=0.18; g[187]:=0.24; g[188]:=0.29; g[189]:=0.29;

g[190]:=0.3; g[191]:=0.39; g[192]:=0.57; g[193]:=0.79; g[194]:=0.91;

g[195]:=1.03; g[196]:=1.25; g[197]:=1.37; g[198]:=1.37; g[199]:=1.28;

g[200]:=1.03;

for i:=1 to 200 do

f:=f+g[i];

z:=f/200;

writeln(' z= ',z:7:3);

end.

19