var
a:array[1..10]of extended;
i,otr,m,pol:integer;
begin
for i:=1 to 10 do
begin
read(a[i]);
if a[i]<0 then otr:=a[i]+otr;
if a[i]>0 then pol:=pol+1;
end;
m:=(pol/otr);
write(m);
end.
<span>Що таке браузер? Бра узер,також бравзер,огляда ч, (веб-) переглядач(англ. browser МФА: [ˈbraʊ zɚ] бра вза — переглядач) —програмне забезпечення для комп'ютера або іншого електронного пристрою, як правило, під'єднаного доІнтернету, що дає можливість користувачеві взаємодіяти з текстом, малюнками або іншою інформацією нагіпертекстовій веб-сторінці.
</span>
1)100110012 = 1∙2^7+0∙2^6+0∙2^5+1∙2^4+1∙2^3+0∙2^2+0∙2^1+1∙2^0 = 128+0+0+16+8+0+0+1 = 153
2)372 = 3∙8^2+7∙8^1+2∙8^0 = 192+56+2 = 250
3)372 = 3∙16^2+7∙16^1+2∙16^0 = 768+112+2 = 882
Uses crt;
var pr,i:integer;
begin
pr:=1;
for i:=1 to 10 do
pr:=pr*i;
writeln(pr);
end.