50 ! заполните массив случайными числами в интервале [1,1000] и выведите номера всех элементов, значение которых равны значению к. в !

//pascalabc.net (версия 3.1, сборка 1210 от 29.03.2016) var   a: array of integer;   i, n,k: integer; begin   //заполняем массив сл.числами   writeln('размер массива : '); readln(n);   writeln('число k : '); readln(k);   setlength(a,n);   for i : = 0 to n-1 do   begin       a[i] : = random(1, 1000); write(a[i]: 4);   end;   writeln;   //вывод номеров элементов = k   writeln('номера элементов равных ',k);   for i : = 0 to n-1 do   begin       if a[i]=k then  write(i: 4);   end; end.

1. первая правая цифра числа показывает число единиц, вторая - число двоек (1·2) , третья - число четверок (2·2), четвертая - число восьмерок (4·2) и т.д. имеем:

111101₂ = 1·1 + 2·0 + 4·1 + 8·1 + 16·1 + 32·1 = 1+4+8+16+32 = 61₁₀

 

2. число нужно поделить на два, найти остаток. полученный результат снова поделить на два и найти остаток и т.д. остатки, записанные в обратном порядке и есть запись в двоичном исчислении.

65÷2 = 32 (ост.1)

32÷2 = 16 (ост.0) 

16÷2 = 8   (ост.0) 

8÷2 = 4     (ост.0) 

4÷2 = 2     (ост.0) 

2÷2 = 1     (ост.0)

1÷2 = 0     (ост.1)

65₁₀ = 1000001₂     

program xxx;

    var i, n : integer;

                      s : real;

                    a : array [1..20] of real;

begin

  writeln('введите размерность массива n=');

  readln(n);

  write('введите элементы массива а: ');

  for i: =1 to n do

        readln(a[i]);

  writeln('исходный массив а: ');

  for i: =1 to n do

        writeln(a[i]);

  s: =0;

  for i: =1 to n do

      if a[i]> 0 then s: =s+a[i];

  writeln('сумма положительных элементов =', s);

  readln

end.