Uses crt;
var a,b,n,i:integer;
mas:array[1..100] of integer;
begin
textcolor(white);
writeln('Введите a,b,n:');
read(a,b,n);
writeln('Введите элементы массива:');
for i:=1 to n do
read(mas[i]);
for i:=1 to n do
begin
if (mas[i]>a) and (mas[i]<b) then
textcolor(yellow)
else
textcolor(white);
write(mas[i],' ');
end;
textcolor(white);
<span>end.</span>
1) I1 = 1024 * 768 * 32 = 25165824 бит = 3145728 байт = 3072 КБайт = 3 МБайт - объем графического файла без сжатия
2) I2 = 3 * 0.8 = 2.4 МБайт - объем графического файла с коэффициентом сжатия 0.2
5,5Мбайт=5,5*1024Кбайт=5,5*1024*1024байт=5767168байт
7Гбайт=7*1024Мбайт=7*1024*1024Кбайт=7340032Кбайт
3Байта=3*8бит=24бит
1/2Мбайт=1/2*1024Кбайт=1/2*1024*1024байт=524288байт
Var a,b,c,m: integer;
begin
readln (a,b,c);
m:=a;
if b<m then m:=b;
if c<m then m:=c;
if m mod 2 = 0 then write('чётное, ') else write('нечётное, ');
if m = 0 then write('ноль') else
if m > 0 then write('положительное') else write('отрицательное')
end.
N*323.
Адрес &arr[i][j][k][l] получается из адреса &arr[0][0][0][0] = &arr[0][0][0] = &arr[0][0] = &arr[0] = &arr[0] путем прибавления (5 * 2 * 7 * i + 2 * 7 * j + 7 * k + l) * N = (70i + 14j + 7k + l) * N байт
Тогда &arr[9][4][0][1] = &arr + 687N байт, &arr[5][1] = &arr + 364N байт, разность (687 - 364) N = 323N