Program prim3;
uses crt;
var i,n,r,max,min,imax,imin:integer;
a:array[1..10000] of integer;
begin
clrscr;
randomize;
write('число элементов n= ');
readln(n);
for i:=1 to n do
begin
a[i]:=random(45)-22;
{Получаем случайные числа и выводим их на экран.}
write(a[i],' ');
end;
{За начальный максимум (минимум) берем первый элемент массива.}
min:=a[1]; max:=a[1];
for i:=1 to n do
begin
{Если найдется элемент, меньший MIN, то MIN будет равен этому элементу. Одновременно запоминаем индекс промежуточного минимума.}
if a[i]<=min then
begin
min:=a[i]; imin:=i;
end;
{Если найдется элемент, больший МАХ, то МАХ будет равен этому элементу. Одновременно запоминаем индекс промежуточного максимума.}
if a[i]>= max then
begin
max:=a[i]; imax:=i;
end;
end;
{Печатаем минимальный элемент и его индекс.}
writeln(min,' номер' , imin);
{Печатаем максимальный элемент и его индекс.}
writeln(max, ' номер' ,imax);
readkey;
end.
1)128×64×8=65536 бита
2)65536÷8=8192 байт
3)8192÷1024=8 килобайт
Ответ: В) 8 Килобайт
100011002 = 1∙27+0∙26+0∙25+0∙24+1∙23+1∙22+0∙21+0∙20 = 128+0+0+0+8+4+0+0 = 14
Div- деление нацело( отбрасываем дробную часть)
Mod - деление с остатком( отбрасываем целую часть)
1) 10 div 5=2
2) 5 mod 3=2
3) 100 div 20=5
4) 4 mod 1=0
5) (10 mod 3)*(11 mod 2)=1
