1010101-2^6+2^4+2^2+2^0=85
1031=1100000111
Если заюзать относительные пути, то должно быть - <span>%USERPROFILE%\Desktop
</span>
Var
ar:array[1..10] of integer;
k,i,n:integer;
begin
readln(k);
for i:=1 to 10 do
begin;
readln(ar[i]);
if ar[i]>k then n:=n+1;
end;
writeln('Array:');
for i:=1 to 10 do write(ar[i]:4);
writeln;
write('Res:',n);
end.<span> </span>
1*10^4+5*10^3+6*10^2+7*10^1+1*10^0
<span>Программа, относящаяся к прикладному программному обеспечению:
</span><span>1) AutoCAD</span>