F=A+¬B*¬(A+B)
A B ¬B ¬(A+B) ¬B*¬(A+B) F
0 0 1 1 1 1
0 1 0 0 0 0
1 0 1 0 0 1
1 1 0 0 0 1
Ответ:
это будет муляж, потому что его можно потрогать и рассмотреть
Const N = 10;
var
mas: array [1..N] of integer;
i,x,y,z:integer;
begin
for i:=1 to 10 do
read(mas[i]);
x:=0;
y:=0;
z:=0;
for i:=1 to 10 do begin
if mas[i]>0 then
x:=x+1
else if mas[i]<0 then
y:=y+1
else
z:=z+1
end;
writeln('Положительных элементов: ',x);
writeln('Отрицательных элементов: ',y);
writeln('Нулевых элементов: ',z);
end.