Program n1;
var a: array[1..10] of integer;
k,kol,i: integer;
begin
randomize;
write('k=');
readln(k);
kol:=0;
write('исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
if (a[i]<0) and (a[i]<k) then kol:=kol+1;
end;
writeln;
writeln('кол-во эл меньше ',k,': ',kol);
end.
Program n_1;
var i, k, n:integer; a: array [1..40] of integer;
begin
readln(n);
randomize;
for i:=1 to 40 do begin
a[i]:=random(100);
if a[i]>=n then k:=k+1;
end;
writeln(k);
end.
_____
Поставил диапазон генерации чисел от 0 до 99 т.к. в условии о нем не было сказано ничего.
65536=2 в 16 степени, значит 1 пиксель кодируется 16 битами (разрешение)
Всего пикселей = 640*480 = (2 в 7)*5*(2 в 5)*15=(2 в 12)*75
Весь объём = (2 в 12)*75*16=(2 в 16)*75=600 кбайт
Для любых X>3.
Но. Если говорить только о целых, то Х>=4