Program TZ5;
const
n=20;
var
a,z:array [1..n] of integer;
i,b,x:byte;
begin
randomize;
for i:=1 to n do begin
a[i]:=random (20);
a[i]:=a[i]-10;
writeln(i,' ',a[i]);
end;
b:=0;
for i:=1 to n do
b:=b+a[i];
x:=1;
writeln;
for i:=1 to n do
if a[i]>b/n then begin
z[x]:=a[i];
x:=x+1;
end;
for i:=1 to x do
writeln(i,' ',z[i]);
readln;
end.
в 3 раза
Объяснение:
Т.к. изображение одно и тоже, то количество точек в них одинаковое (K).
i = 24 бит для p1.bmp
2^i = 256
i = 8 бит для p2.bmp
Для p1.bmp V = 24K
Для p2.bmp V = 8K
24 / 8 = 3
В 3 раза будет меньше информационный объём файла p2.bmp.
V = K * i, где
V - информационный объём изображения (размер файла, содержащего изображение)
K - количество точек (пикселей )
i - глубина цвета (число бит, используемых для записи цвета одного пикселя)
N = 2^i, где
N - количество цветов в палитре
i - глубина цвета (число бит, используемых для записи цвета одного пикселя)
^ - знак степени
Объяснение:
Колонна, состоящая из тринадцати роботов, движется со скоростью 4 см/с. Когда первый робот колонны поравнялся с роботом-инспектором, то робот – инспектор поехал вдоль колонны со скоростью 60 дм/мин, а достигнув её конца, развернулся и вернулся к первому роботу в колонне. Скорость колонны и робота-инспектора постоянны. Длина колонны роботов равна 2 м 10 см. Определите, какой путь проедет робот-инспектор, пока он снова нагонит первого робота в колонне. Временем на разворот можно пренебречь. ответ дайте в дециметрах. В ответ запишите только число.
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(20,-50,50); a.Println;
var b:=a.Where(t->t>a.Average).ToArray; b.Println
end.
Пример
10 32 7 10 -17 -5 6 14 -39 -20 -28 2 -22 15 10 11 28 -13 -29 31
10 32 7 10 6 14 2 15 10 11 28 31