Дан массив [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.

50зн=50байт

60зн=60байт

1кбайт= 1024байта

1мб=1024кбайта

=> 1мбайт=(1024*1024)байт

1мбайт=1048576 байт

50байт/1048576байт=0,0000476837мбайт

60байт/1048576байт=0,0000572205мбайт 

v=331+0.6t

в зимний день- v=331+0.6*(-35)=310 м/с

в летний день- v=331+0.6*30=349 м/с