Дан массив [1..n] и число m. найдите количество элементов больше числа l

Var   m,n,k,i: integer;   a: array[1..1000] of integer; begin   write('write size array: '); readln(n);   write('write m: '); readln(m);   k: =0;   for i: =1 to n do   begin     read(a[i]);     if a[i]> m     then inc(k);   end;   writeln(k);   readln;   readln end.

первое

заголовок: уходид из дома

4.порощаться

6.выключить свет,газ,

второе

заголовок: приход в квартиру

3.поверни ключ

4.вынь ключ из скважины 

64 * 64 = 4096

512 * 8 = 4096 бит

4096 : 4096 = 1 бит

n = 2^i

n = 2^1 = 2 цвета

ответ. 2 цвета.