В какой форме не может быть представлена аудиоинформация ?! ​

импульсивной форме

& - Конъюнкция, истина только тогда, когда и А и Б истины, т.е 1

v - Дизъюнкция, истина, если хоть одна из переменных истина. Т.е ложно оно бывает только когда обе ложные (0)

И вот теперь тупо смотришь в таблицу.

B&C

Смотрим на первую строку. Они обе 0, т.е ложные, значит в столбце B&C в первой строке тоже 0. Дальше,вторая строка. Теперь B - 0, C - 1,  тоже пишем 0, т.к истинно только одно. И т.д. В итоге истина только в 4 и 8 строке. Остальное нули.

Потом у тебя идёт  A v (B&C). Смотришь на столбец А, и столбец, который ты только что заполнил. Аналогично. Т.е тут будет, что до 4 строки  - ложь, а после и до конца - истина. т.к хоть одна истина будет.

Тоже самое и с другими.

Program enot;
Var a: array [1..22] of integer;
i,h,n,k,c:integer;
 l:real;
begin
for i:=1 to 22 do
a[i]:=random(51)-25;
for i:=1 to 22 do
begin
if a[i]>0 then begin  c:=c+a[i];
  k:=k+1; 
end;
l:=c/k;
n:=0;
h:=0;
if a[i]<0 then h:=h+1;
if a[i]=0 then n:=n + 1;
end;
writeln(a[i],'среднее арифметическое= ',l:2:2,'; количество отрицательных = ', h,'; количество равных нулю = ',n);
end.

Вот и вторая задача:
Program enot;
Var a: array [1..4,1..4] of integer;
i,j,s,p,h:integer;
o:real;
begin
for i:= 1 to 4 do
  for j:= 1 to 4 do
   a[i,j]:= random(25)-12;
p:=1;
for i:= 1 to 4 do
begin
   s:=s+a[i,3];
   p:=p*a[i,i];
   end; 
   writeln('summa= ',s,'; произведение= ',p);
 for i:= 1 to 4 do
 for j:= 1 to 4 do 
begin 
h:=h+a[i,j];
   o:=h/16;
 end;
 writeln('среднее арифметическое= ',o);
end.