Выход: монитор, принтер, колонки
вход: клавиатура, мышь, сканер, диски разные, микрофон
11011111 = 223
11011001 = 217
11000011 = 195
11000000 = 192
Скинь мне задание, я помогу
4 бит = 4/8 байт = 0,5 байт
1,5 Кб = 1,5*1024 = 1536 байт
var
a:array[1..10]of extended;
i,otr,m,pol:integer;
begin
for i:=1 to 10 do
begin
read(a[i]);
if a[i]<0 then otr:=a[i]+otr;
if a[i]>0 then pol:=pol+1;
end;
m:=(pol/otr);
write(m);
end.