111011101=477,
1011111000 = 760,
111110100 = 500,
110001111 = 399,
1011101110 = 750,
1111101011 = 1003,
<span>110100110 = 422.</span>
Program massiv;
Var a:array[-10..10] of integer;
i:integer;
Begin
For i:=1 to 20 Do
begin
Read(a[i]);
a[i]:= round(a[i]/10);
Write(a[i]);
end;
End.
Примерно 50 кб если не верно извеняи
Для хранения цвета одного пикселя требуется log(2)32 = 5 бит (2^5=32). Размер изображения = 500/5 = 100 пикселей.