Составьте программу, которая формируют массив из шестнадцати случайных целых чисел от -20 до 20 и: а) находит элементы с нулевыми значениями; б) находит индексы четных элементов;

Var   i: integer;   a: array [1..16] of integer; begin   randomize;   writeln('массив: ');   for i : = 1 to 16 do   begin     a[i] : = random(41) - 20;     write(a[i]: 5);   end;   writeln;   writeln('нулевые элементы: ');   for i : = 1 to 16 do     if a[i] = 0 then write(i: 5);   writeln;   writeln('четные элементы: ');   for i : = 1 to 16 do     if a[i] mod 2 = 0 then write(i: 5); end.

N=8 в , насколько я понимаю, означает решение для восьмибитного представления данных, т.е. для случай, когда левый бит отводится под знак (0 - плюс, 1 - минус), а семь правых битов используются для представления числа. отрицательное число представляется в дополнительном коде, т.е. нули заменяются единицами (и единицы - нулями), а потом в младшем разряде к полученному числу прибавляется единица. вначале перевод. -13(10)=-0001101(2) инвертируем биты: 1110010 прибавляем единицу: 1110011 и дописываем слева 1 в качестве знака. 1 1110011 аналогичным образом поступаем и с числом -7: -7(10)=-0000111(2) инвертируем биты: 1111000 прибавляем единицу: 1111001 и дописываем слева 1 в качестве знака. 1 1111001 теперь сложение. выполняем его в столбик для всех восьми бит.     11110011 + 11111001       11101100 у нас при сложении появилась единица переноса из левого разряда, но дальше уже разрядов нет и она просто отбрасывается. результат получился с единичным знаковым разрядом. поэтому для получения величины результата поступаем в обратном порядке: отделяем семь правых бит, вычитаем единицу и снова инвертируем полученное значение. вместо единичного знакового разряда приписываем числу знак минус. 1101100 - 1 = 1101011. инверсия: 0010100, результат -10100(2)=-20(10)