Задати одновимірний масив з 50 елементів заповнений випадковими числами (random).Знайти суму елементів які мають відємне значення. Потрібно скласти програму(задачу)

f0=(15*16в1)+(0*16в0)=240 , делим столбиком число 240 на 2 (делим и делим) и записываем остатки с конца и получаем число 11110000

т.е.  240/20=120    ост  0

120/2=60    ост  0

60/2=30   ост  0

30/2=15  ост  0

15/2=7   ост  1

7/2=3   ост  1

3/2=1   ост  1

записываем в обратном поряде    11110000

1d4=(1*16в2)+(13*16в1)+(4*16в0)=256+208+4=468  делим столбиком число 468 на 2         111010100

3 отдельное слово

1 строка

5 абзац

2 весь текст

4 произвольный кусок

var a: array[1..100] of integer;

begin

  randomize; {чтоб рандом был разный для каждого запуска програмы}

  for i: = 1 to 100 do

      if i mod 2 =0 then a[i] : = 2*random(100)+1; {формула нечетного числа}

      else a[i]: =2*random(100);

end.

есличто непонятно - пиши в сообщения, растолкую

16 - 2^4 - 4 бита = 0.5байт

256 - 2^8 - 8 бита = 1байт

128 - 2^7 - 7 бита

4 - 2^2 - 2 бита = 0.25байт

512*1024*8 =  4`194`304 бит

640*480 = 307`200 бит

4 - 6

16 - 3

128 - 1

256 - 1