Чему равно максимальное значение положительного числа в 16 битах при знаковом представлении?

32768, один бит знаковый

ЗАБОРОНЯЕТЬСЯ:

находиться в классе в верхней одежде;

класть одежду и сумки на столы;

находиться в классе с напитками и едой;

работать на компьютере во влажной одежде и влажными руками;

располагаться сбоку или сзади от включенного монитора;

касаться экрана, тыльной стороны дисплея, проводов питания, заземления, соединительных кабелей

передвигать компьютеры и мониторы, снимать крышку корпуса системного блока;

включать / выключать компьютер без разрешения, отсоединять и подсоединять любые устройства компьютера, нарушать порядок включения и выключения аппаратных блоков;

самостоятельно пытаться устранить любые неполадки в работе компьютера, независимо от того, когда и по чьей вине они произошли;

перекрывать вентиляционные отверстия на системном блоке и мониторе;

ударять по клавиатуре, нажать бесцельно на клавиши;

класть книги, тетради и другие вещи на клавиатуру, монитор и системный блок;
удалять и перемещать чужие файлы, приносить и запускать компьютерные игры.

var a: array [1..100,1..100] of longint ;i, j ,d, n,m,k: longint;beginread(n,m);
for i:=1 to n do for j:= 1 to m doread(a[i,j]);
j:=0;
        for i:=1 to n do        begin        j:=j+1;        d:=0;                 while d<2 do                 if a[i,j]<0 then begin k:=k+1; d:= 3; end;        end;

if k>(m/2) then        begin        for i:= 1 to n do                 for j:= 1 to m do                 if a[i,j]<0 then a[i,j]:=a[i,j]*10 ;
        end
else
begin        for i:=1 to n do         for j:= 1 to m do         if a[i,j]<0 then a[i,j]:=a[i,j]*a[i,j] ;end;
for i:=1 to n dobegin for j:= 1 to m dowrite(a[i,j],' ');end;end.