Цифровой массив

[Ruslan M]

Помогите пожалуйста надо написать прогу на паскале: Дан цифровой массив , посчитать сколько двоичных единиц содержит каждое число

[Stilet]

Написать код ввода массива конечно не сможешь?

[Poma][a]

посчитать сколько двоичных единиц содержит каждое число

Интересненько.. Если отойти от банального перевода в двоичное число, то, наверное, можно получить что-то очень красивое..

Ну пока из идей : Делить на 16 и брать из константного массива кол-во единичек.

const
	a : array [0..15] of Integer = (0, 1, 1, 2, 1, 2, 2, 3, 1, 2, 2, 3,
	                               2, 3, 3, 4);
	
var
	
	n, t, count : Integer;

begin
	ReadLn (n);
	count := 0;
	
	while n > 0 do begin
		t := n mod 16;
		n := n div 16;
		Inc (count, a[t])
	end;
	
	WriteLn (count)
end.

[ViktorR]

Ну а если число < 0?
В условии об этом ничего ...

Можно просто посчитать биты, которые установлены в единицу.
Например:

const n = 10;
type Tmas = array[1..n] of integer;
var a, b : Tmas;
    i, m : integer;
       s : word;
begin
   randomize();
   for i := 1 to n do
      a[i] := random(100) - 50;

   for i := 1 to n do begin
      s := 1;
      b[i] := a[i] and s;
      for m := 1 to 15 do begin
         s := s shl 1;
         if ((a[i] and s) > 0) then
            b[i] := b[i] + 1;
      end;
   end;
end.

Так, для баловства ...

[Poma][a]

Ну а если число < 0?

Каюсь, пропустил..

Можно просто посчитать биты, которые установлены в единицу.

А можно прокомментировать код?
После этого цикла (for m := 1 to 15 do begin) я перестал понимать что к чему..

[ViktorR]

А можно прокомментировать код?

Да.

for i := 1 to n do begin {цикл по всем элементам массива}
      s := 1;            {нач. знач. маски - 1 - соответствует мл. биту}
      b[i] := a[i] and s;  {проверяем наличие единицы в мл. бите}
                            {т.к. это либо единица, либо ноль, то сразу}
                            {сохраняем в массиве для подсчета единиц}
      for m := 1 to 15 do begin {цикл по битам числа}
         s := s shl 1;  {сдвиг значения маски влево на одну позицию:}
                        {т.о. получаем положение единицы во втором бите,}
                        {третьем и т.д.}
         if ((a[i] and s) > 0) then {операция И для конкретного бита}
                                    {0010001 AND 0010000 = 0010000}
            b[i] := b[i] + 1;       {подсчитываем единицы}
      end;
   end;

Как-то так, ...

[Poma][a]

Ага. Спасибо! До меня "дошло".

Проверяем первый бит и остальные 15.
Долго не мог понять фишку с shl-ом.. давно не пользовался и упорно путал право_с_лево.
Еще раз спасибо!