Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
s,a,n,i,min,max: integer;
begin
min: =32767;
max: =-32768;
readln(n);
for i: =1 to n do
readln(a);
if a< min then min: =a;
if a> max then max: =a;
end;
s: =(min+max)/2;
writeln(s);
end.
51 в десятой сс=110011 в двоичной сс
85 в дес сс=1010101 в двоичной сс
110011+1010101=10001000
110011-1010101=1111111111011110
вроде так
если ответ нужен в десятичной сс, то просто переведи
Популярные вопросы