Дан массив целых чисел из 12 элементов. найти произведение элементов лежащих в промежутке [-2, 10].

Const n = 12; var   f: boolean;     i, p: integer;   a: array [1..n] of integer; begin   randomize;   writeln('исходный массив');   for i : = 1 to n do begin     a[i] : = random(21)-10;     write(a[i], ' ');   end;       p : = 1;   for i : = 1 to n do      if (a[i] > = -2) and (a[i] < = 10) then begin       f : = true;       p : = p * a[i];     end;       writeln;   write('произведение = ');   if not f then writeln(0)   else writeln(p); end.    

1) 5

2) 9

3) 9

4) 10

 

 

алгоритм простой, представим число n-1 (т.к. ноль не учитывается) в качестве двойчной последовательности, для числа n=32 это будет 11111 дальнейший алгоритм прост, рассмотрим его на примере, задумано число 26:

1) проверяем правый регист (*0000 = 16), задаем вопрос "задуманое число больше 16? ", ответ "да", значит первы регистр 1

2) проверяем следующий (1*000=24), задаем вопрос "задуманое число больше 24? ", ответ "да", значит регистр 1

3) проверяем следующий (11*00=28), задаем вопрос "задуманое число больше 28? ", ответ "нет", значит регистр 0

4)проверяем следующий (110*0=26), задаем вопрос "задуманое число больше 26? ", ответ "нет", значит регистр 0

 

  5)  проверяем следующий (1100*=25), задаем вопрос "задуманое число больше 25? ", ответ "да", значит регистр 1

итого получаем задуманное число в двоичной форме 11001 = 25, но т.к. мы не учитываем 0, то к этому числу надо прибавить 1, итого задусманное число 26

 

 

1) 52) 93) 94) 10алгоритм простой, представим число n-1 (т.к. ноль не учитывается) в качестве двойчной последовательности, для числа n=32 это будет 11111 дальнейший алгоритм прост, рассмотрим его на примере, задумано число 26: 1) проверяем правый регист (*0000 = 16), задаем вопрос "задуманое число больше 16? ", ответ "да", значит первы регистр 12) проверяем следующий (1*000=24), задаем вопрос "задуманое число больше 24? ", ответ "да", значит регистр 13) проверяем следующий (11*00=28), задаем вопрос "задуманое число больше 28? ", ответ "нет", значит регистр 04)проверяем следующий (110*0=26), задаем вопрос "задуманое число больше 26? ", ответ "нет", значит регистр 0 5) проверяем следующий (1100*=25), задаем вопрос "задуманое число больше 25? ", ответ "да", значит регистр 1итого получаем задуманное число в двоичной форме 11001 = 25, но т.к. мы не учитываем 0, то к этому числу надо прибавить 1, итого задусманное число 26