Program z4; Var a: array [1..1000] of integer; i, sum, n:integer; S_R: real;Begin write('Введите кол-во элементов - '); readln(n); for i := 1 to n do begin a[i] := random (30); sum:= sum + a[i]; end; S_R:= sum / n; writeln('Cреднее арифметическое - ', S_R); for i := 1 to n do if (a[i] >= S_R) then write(a[i],' '); End.
Так?
var c, b:integer; a, v:real;
begin
read(b,c);
a:=30*b/4+c ;
v:=b/a;
writeln(v);
end.
1024*256=262144 (пикселей) всего в изображении
160 Кб *1024 = 163840 байт *8 = 1310720 бит
1310720 / 262144 = 5 (бит) приходится на один пиксель
Формула мощности алфавита: N = 2^i
N = 2^5 = 32 - максимальное количество цветов
Ответ: 32