Program pm;
uses crt;
var X:array[1..1000] of integer; k,a,b,i:integer;
begin
clrscr;
write('Введите кол-во элементов массива: ');
read(k);
writeln;
write('Введите диапазон значений заполнения(A-начальное значение, B-конечное): ');
repeat
read(a,b);
until a<=b;
writeln;
randomize;
for i:=1 to k do X[i]:=random(b-a+1)+a;
writeln('Ваш массив:');
for i:=1 to k do write(X[i]:5);
writeln;
write('Введите элемент поиска: ');
read(b);
a:=0;
for i:=1 to k do if X[i]=b then a:=i;
if a>0 then writeln('Элемент со значением ',b,' имеет индекс ',a)
else writeln('Элемента не существует!');
readkey;
<span>end.</span>
Если при переносе или копировании формулы адрес автоматически изменяется, то это относительный адрес
1/16=0.0625 мб
0,0625*1024*1024*8=524288 бит объем сообщения.
524288/16384=32 символа содержит алфавит
1. Количество цветов в палитре = 2^9 = 512
2. При использовании 8 цветов для хранения одного пикселя требуется log(2)8 = 3 бита. Объем видеопамяти для хранения изображения = 1024*768*3 бит = 1024*768*3/8 байт = 1024*768*3/(8*1024) Кбайт = 288 Кбайт
1.Основание
2.Естественная
3.Разновидностей
4.Искусственная