Написать программу по блок-схеме (прикрепленный файл "линейные блок-схемы 8г") программу проверить в pascalabc, текст программы скопировать в программу "блокнот" и этот файл прикрепить к . к даны значения что бы никто друг у друга не списывал у меня значение 3

Const n=10; 
type ar=array[1..n+1] of integer;
var 
a:ar; i,p:integer; 
procedure pr(var a:ar; p:integer; var k:integer);
begin
k:=1;
while a[k]<>p do k:=k+1;
end;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
 begin
 a[i]:=random(31);
 write(a[i]:4);
 end;
writeln;
p:=17;
a[n+1]:=p;
pr(a,p,i);
if i<n 
 then writeln('Значение 17 найдено, номер элемента = ',i)
 else writeln('Значения 17 в массиве нет');
end.

Пример:
Массив A:
  14   5   7  17  25  15  28   0  24   0
Значение 17 найдено, номер элемента = 4

в 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 - глубина цвета (число бит, используемых для записи цвета одного пикселя)

^ - знак степени