Дан массив а из 20 элементов. найти произведение элементов массива. результат вывести на печать.

перебири все элементы массива циклом и в теле цикла умнож значения элементов друг на друга

Для перевода целого двоичного числа в шестнадцатиричную систему счисления используется тот факт, что 16=2⁴. справа налево группируем двоичные разряды по четыре, формируя тетрады (они же - полубайты). каждую тетраду заменяем соответствующей шестнадцатиричной цифрой. 11110000₂ = 1111 0000₂ = f0₁₆ 100100100₂ = 1 0010 0100₂ = 124₁₆ для перевода двоичного числа в десятичную систему используем расширенную запись числа по его основанию. 11110000₂ = 1х2⁷+1х2⁶+1х2⁵+1х2⁴+0х2³+0х2²+0х2¹+0х2⁰ = 128+64+32+16 = 240₁₀ на практике просто суммируют те степени двойки, у которых множители равны единице, а члены с нулевыми множителями не пишут. 100100100₂ = 2⁸+2⁵+2² = 256+32+4 = 292₁₀ по такому же принципу делается перевод и из шестнадцатиричной системы в десятичную. f0₁₆ = 15x16¹+0x16⁰ = 240+0 = 240₁₀ 124₁₆ = 1x16²+2x16¹+4x16⁰ = 256+32+4 = 292₁₀

Var k,s: integer; begin writeln('введите число k: '); readln(k); if (k< =9999) and(k> =0) then begin if k div 1000 < > 0 then   s: = (k mod 10) + (k div 1000) + ((k   div 100)mod 10) + (k div 10)mod 10; if (k div 1000 = 0)   and (k div 100 < > 0) then s: =(k mod 10) +( k   div 100) + (k div 10)mod 10; if (k div 100 = 0)   and (k div 10 < > 0) then s: = (k mod 10) + (k div 10);   if (k div 10 = 0)   and (k mod 10 < > 0) then s: = k; writeln('сумма цифр  = ', s); end; end.