Найти максимальный элемент одномерного массива из 30 элементов

Var ar: array[1..30] of integer; i,max: integer; begin; randomize; writeln('array'); for i: =1 to 30 do begin; ar[i]: =random(1,100); write(ar[i]: 4); end; for i: =1 to 30 do if max< ar[i] then max: =ar[i]; writeln; writeln('result: ',max); end.

1)|-10|=10 10(в десятичной)=1010(в двоичной) 0000000000001010(в двоичной) добавили нули чтобы перевести в 16 разрядное представление   это   и является прямым кодом обратный код - заменяем нули однерками и однерки нулями. 1111111111110101(в двоичной) - обратный код дополнительный код получим добавив в обратному единицу которая отвечает за знак. получим 1111111111110110(в двоичной) 2)|-100|=100 100(в десятичной)=1100100(в двоичной) добавляем нули0000000001100100(в двоичной)  прямой код обратный -  1111111110011011(в двоичной) дополнительный -  1111111110011100 (в двоичной)3)|-1000|=10001000(в десятичной)=1111101000(в двоичной) добавляем нули 0000001111101000 (в двоичной) прямой кодобратный -  1111110000010111(в двоичной) дополнительный -  1111110000011000 (в двоичной)4)|-10000|=1000010000(в десятичной)=10011100010 000(в двоичной)добавляем нули0010011100010000(в двоичной) - прямой код обратный -  1101100011101111(в двоичной)дополнительный -  1101100011110000(в двоичной)