Массив а размер 12 заполняется случайными целыми числами из интервала (-100; 50). найти произведение положительных элементов массива.

Const       n = 12; var       i, p: integer;       a: array[1..n] of integer; begin       p : = 1;       for i : = 1 to n do       begin               a[i] : = random(150) - 100;               write(a[i], ' ');               if a[i] > 0 then p : = p * a[i];       end;       writeln;       writeln('p = ', p); 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,6*t

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

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