Const
n=10;
var
i,im:integer;
a:array[1..10] of integer;
begin
Randomize;
im:=1;
for i:=1 to n do begin
a[i]:=Random(21)+1;
Write(a[i],' ');
if a[i]<a[im] then im:=i
end;
Writeln;
Writeln('Минимальный элемент a[',im,']=',a[im])
end.
<u>Пример</u>
20 13 16 7 9 4 21 13 2 10
Минимальный элемент a[9]=2
V = K * I, где
V - объем;
K - размер изображения;
I - количество бит.
N = 2^i, где
N - количество цветов.
N = 2^i.
64 = 2^i.
I = 6 бит.
V = K * I = (1280*80*6)/2^13 = (2^7 * 10 * 2^4 * 5 * 3 * 2)/2^13 = (2^12 * 150)/2^13 = 150/2 = 75 кбайт.
Ответ: 75 кбайт.
Const n=20;
var x : array[1..n] of integer;
i, max, min : integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
x[i]:=random(181)-50;
write(x[i],' ');
end;
writeln;
max:=x[1]; min:=x[1];
for i:=2 to n do
begin
if x[i] > max then max:=x[i];
if x[i] < min then min:=x[i];
end;
writeln('max=',max,' min=',min);
<span>end.
Пример:
Исходный массив:
-34 -23 -38 15 108 21 -25 -29 15 -34 34 8 20 76 -27 -43 -17 89 95 -28
<span>max=108 min=-43</span></span>
Вспоминаем, что 1 Мб = 1024 Кб
16×1024 = 8X+4×1024
12×1024 = 8X ⇒ X = 12×1024/8 = 12×128 = 1536