Если нам надо хранить и положительные и отрицательные значения в 1 байте, то старший бит будет отведён под знак (+ или -) а на само число останется только 7 бит.
поэтому значения (х) которые можно записать в 7 бит со знаком будут в диапазоне
-128 ≤ x ≤ +127
16 (Dec) = 0001 000 (Bin)
32 (Dec) = 0010 0000 (Bin)
-25 (Dec) = 1110 0111 (Bin)
максимальное положительное значение 0111 1111 = +127
минимальное отрицательное значение 1000 0000 = -128
Вещественное число (дробное) выглядит как
234,56 = 23456 * 
где
23456 – мантисса
-2 - знак порядка и порядок
Представление вещественных чисел в двух байтах будет в следующем виде
ABxx xMMM MMMM MMMM
A – знак числа (1 Бит)
B – знак порядка (1 Бит)
ххх – порядок (3 Бита) максимальное значение 111(Bin) = 7(Dec)
MMM MMMM MMMM - мантисса (11 бит) максимальное значение 111 1111 1111(Bin) = 2047(Dec)
Можливо
Объяснение:
Якщо задати змінні:
X = 0
B = 5
A = 10
І задати цикл з умовою B<A (умова виходу із цикла), який буде додавати до X одиницю, і є 2 варіанта:
1)Скінчений цикл:
Додавати одиницю до B, щоб рано чи піздно цей цикл скінчився
B<A
5<10
6<10
7<10
8<10
9<10 - На цьому цикл закінчується, так як умова була B<A
2)Нескінчений цикл:
Додавати одиницю до A, тоді цикл не закінчиться
B<A
5<10
5<11
5<12
5<13
5<14
І цей цикл не закінчиться, так як умова виконання циклу була B<A
N = 7;
Var
A:array[1..N]of integer;
S,P,i:integer;
Begin
P:=1;
S:=0;
WriteLn('Введи элементы массива');
For i:= 1 to N do
Begin
Read(A[i]);
if (A[i]<0)and(A[i] mod 2 <> 0) then S:=S+A[i];
if (A[i]>0)and(A[i] mod 2 = 0) then P:=P*A[i]
End;
WriteLn('Произведение равно ',P);
WriteLn('Сумма равна ',S)
End.