Держи. Код на С++,могу переделать под Паскаль.
#include <iostream>
using namespace std;
void z(int *m, int n, int a, int b)
{
srand(time(NULL));
for(int i=0;i< n;i++) m[i]=a+rand()%(b-a+1);
}
int k(int *m, int n, int a, int b)
{
int s=0;
for(int i=0;i< n;i++) s+=m[i]>=a && m[i]<=b;
return s;
}
int main()
{
int n,a,b,na,nb;
cout<<" Vvedite razmer massiva n: "; cin>>n;
int *m=new int[n];
cout<<"Vvedite diapazon ot a do b: "; cin>>a>>b;
z(m,n,a,b);
for(int i=0;i< n;i++) cout << m[i] << " ";
cout<< endl;
cout<<"number_A number_B: ";
cin>>na>>nb;
cout<<"k="<< k(m,n,na,nb);
delete []m;
cout<<"\nPress Enter for exit\n";
cin.get();
cin.get();
}
Пример:
<span> Vvedite razmer massiva n: 10
Vvedite diapazon ot a do b: 10 50
15 16 31 21 36 34 23 39 31 11
number_A number_B: 20 30
k=2
Press Enter for exit</span>
а)11001001
б) 148 это в десятичной, 224 в восьмеричной, 94 в шеснацетеричной
1.Числовая
2.Видеоинформация
3.Органы чувств
4.Данные
5.Графическая
6.Компьютер
7.Информация
8.Слуховая
9.Информатика
10.Текстовая
19 из 10 в 2
делим 19 на 2, записываем остатки, получившиеся значения записываем в обратном порядке
19/2=9 ост 1
9/2=4 ост 1
4/2=2 ост 0
2/2=1 ост 0
19 из 10 в 8
аналогично, но делим на 8
19/8=2 ост 3
19 из 10 в 16
19/16=1 ост 3
561 из 10 в 2
561/2=280 ост 1
280/2=140 ост 0
140/2=70 ост 0
70/2=35 ост 0
35/2=17 ост 1
17/2=8 ост 1
8/2=4 ост 0
4/2=2 ост 0
2/2=1 ост 0
561 из 10 в 8
561/8=70 ост 1
70/8=8 ост 6
8/8=1 ост 0
561 из 10 в 16
561/16=35 ост 1
35/16=2 ост 3