Некое растровое изображение было сохранено в файле p1.bmpкак 24-разрядный рисунок. во сколько раз будет меньше информационный объём файла р2. bmp, если в нем это же изображение сохранить как 16-цветный рисунок?
begin ClrScr; Writeln('Укажите количество людей на каждом этаже'); for i:=1 to n do Read(k[i]); Writeln; { массив получен, решаем задачу } m1:=1; m2:=2; if k[m2]<k[m1] then begin t:=m1; m1:=m2; m2:=t end; for i:=3 to n do if k[i]<k[m2] then begin m2:=i; t:=m1; m1:=m2; m2:=t end; Writeln('Меньше всего людей на этажах ',m1,' и ',m2); ReadKey end.
const n=10; a:array[1..n] of integer=(6,6,6,6,3,5,2,1,0,7);
var i,j,t:integer;
begin ClrScr; t:=a[1]; i:=2; while (i<=n) and (a[i]=t) do i:=i+1; if i<=n then begin Writeln('Одинаковых элементов: ', i-1); Write('За ними следуют элементы '); for j:=i to n do Write(a[j],' '); Writeln end else Writeln('Весь массив заполнен одинаковыми элементами'); ReadKey end.
