Извини, текст не понятный. Не могла бы ты переписать его?
Для кодирования одного из 32 цветов требуется log(2)32 = 5 бит (2^5=32).
Высота изображения = 9*1600/16 = 900
Объем памяти = 1600*900*5 бит = 1600*900*5 / (8*1024) Кбайт ≈ 879 Кбайт.
Var a:array[1..30] of integer;
i,sr,k:integer;
begin
for i:=1 to 30 do begin
read(a[i]);
if a[i]>0 then begin sr+=a[i]; inc(k); end;
end;
writeln(sr/k:3:2);
<span>end.</span>
А - наличие свободного времени
В - наличие дождя на улице
С - поход на вечеринку
_
А*В=С
_ _
А В В А*В С
0 0 1 0 <span> 0
</span>0 1 0 0 <span> 0
</span>1 0 1 0 <span> 0
</span>1 1 0 1 <span> 1</span>