Уменьшив размер объекта ты уменьшишь кол-во пикселей на сам объект.
Лупа расширяет размер пикселя,увеличивая объект.
Я так понимаю, нужно число страниц найти.
9408 / (log2(256) / 8 * 28 * 48) = 7 страниц.
<span>uses crt;
var a: array [1..15] of integer;
i: integer;
begin
writeln('Дан массив');
for i:=1 to 15 do
begin
a[i]:=random(41)-20;
write(a[i]:5);
end;
writeln;
writeln('Преобразованный массив');
for i:=1 to 15 do
if a[i] mod 2=0 then write(a[i]/2:5:1)
else write(a[i]*3:5);
end<span>.</span></span>
Есть несколько вариантов узнать значение переменной в любой момент работы программы
- пошаговое исполнение в редиме отладки (debug) и через watch или наведения мыши смотреть значение в определенный момент
- вывод в лог, или так называемый дебаг логированием. Логом может служить не только текстовый файл, но и консоль
- дополнительные способы типа assert
program minMax;
type Massiv=array[1..15]of integer;
var v:Massiv;
i, min, max:integer;
begin
randomize;
v[1]:=5+random(46);
min:=v[1]; max:=v[1];
for i:=2 to 15 do
begin
v[i]:=5+random(46);
if v[i]<min then min:=v[i];
if v[i]>max then max:=v[i];
end;
writeln(' Massiv: ');
for i:=1 to 15 do
write(v[i], ' ');
writeln;
writeln('min = ',min);
writeln('max = ',max);
end.