А B не А А и В А и В или не А
0 0 1 0 1
0 1 1 0 1
1 0 0 0 0
1 1 0 1 1
У вас отсутствует вторая закрывающая скобка в первой строке
Должно быть так: n = int(input('Введите число. Проверка на четность.'))
Const n=10;
Var b,c;
a:array [1..n] of integer;
Begin
b:=0; c:=0;
For i:= 1 to n do
If a[i]>0 then b:=a[i]+b
else
inc(c);
Writeln(b,' ', c);
end.
152 бит = 152 / 8 байт = 19 байт
1 байт = 8 бит
1 бит = 1/8 байт