Var a,b,c,U,R:longint;beginread (U,R);write(U/R) ;end.
пусть Стул & диван = А
Стол = Б
а кровать = В
тогда получается что
(Б или А) и В = 890 = (Б и В) или (А и В) -(А и Б и В)
Б и В = 780
А и В = 320
780 +320 = (А и В) или (Б и В) = 1100
1100 - 890 = А и Б и В = 210
Program aaa;
var
a,b,c,n,i:longint;
M:array[1..1000000] of real;
begin
read(n); //
for i:=1 to n do //если считывать массив не нужно, то удалить
read(M[i]); //
a:=0;
b:=0;
c:=0;
for i:=1 to n do
begin
if M[i]>0 then inc(a);
if M[i]=0 then inc(b);
if M[i]<0 then inc(c)
end;
writeln('положительных элементов:',a);
writeln('нулевых элементов:',b);
writeln('отрицательных элементов:',c)
<span>end.</span>
Объем памяти = 1280*1024*32 бит = 1280*1024*32/8 байт =
1280*1024*4/1024 Кбайт = 5120 Кайт = 5120/1024 Мбайт = 5 Мбайт
2 - зрения. 90% информации мы получаем визуально, если не ошибаюсь)