Дано: одномерный массив D(n) ; n=10. Из элементов, меньше 10, сформировать массив B.Из элементов, больше 10 сформировать массив
<span>Дано:<span> одномерный массив </span>D(n<span>) </span><span>; </span>n=10<span>. Из элементов, меньше 10, сформировать массив </span>B.</span><span>Из элементов, больше 10 сформировать массив С.Найти количество элементов, равных 10. ПОМОГИТЕ ПОЖАЛУЙСТА НАПИСАТЬ ПРОГРАММУ НА ПАСКАЛЕ!!!</span>
Uses crt;const n=10;var D,B,C: array [1..n] of integer; i,k: integer; begin for i:=1 to n do begin D[i]:=random(100); writeln(D[i]); end; for i:=1 to n do begin if D[i]<10 then B[i]:=D[i]; if D[i]>10 then C[i]:=D[i]; if D[i]=10 then inc(k); end; writeln('Кол-во элементов, равных 10 = ',k);<span>end.</span>
Для перевода целого десятичного числа в двоичную систему счисления нужно последовательно выполнять деление данного числа и получаемых целых частных на 2 до тех пор, пока не получим частное, равное нулю