Ответы и объяснения

2013-12-10T13:20:53+00:00
1) 
uses crt;
var i,j,n,ans:integer;
mas:array[1..1000] of integer;
masmod9:array[1..1000] of integer;
begin
j:=1;
ans:=0;
writeln('Сколько чисел в массиве?');
readln(n);
for i:=1 to n do
begin
read(mas[i]);
if mas[i] MOD 9=0 then
begin
ans:=ans+1;
masmod9[j]:=mas[i];
j:=j+1
end;
end;
writeln(ans);
for i:=1 to j-1 do
write(masmod9[i],' ');
end.
2)
uses crt;
var i,n:integer;
ans:double;
begin
ans:=0;
read(n);
for i:=1 to n do
ans:=ans+cos(i)/sin(i)/i;
writeln(ans:5:3);
end.