//FPC 2.6.4
var
a: array of longint;
size, i, j: longint;
begin
randomize;
writeln('Колво элементов: ');
readln(size);
setLength(a, size);
write('Исходный случайный массив: ');
for i:=0 to size-1 do
begin
a[i]:=random(201)-100;
write(a[i], ' ');
end;
writeln;
<span> for i:=0 to size-2 do
for j:=0 to size-i-2 do
if a[j]>a[j+1] then
begin
<span> a[j]:=a[j] xor a[j+1];
a[j+1]:=a[j] xor a[j+1];
a[j]:=a[j] xor a[j+1];
end;
</span></span>
writeln('Отсортированный массив: ');
for i:=0 to size-1 do write(a[i], ' ');
writeln;
end.
СПОСОБ №1
1) найти длину горизонтальной стороны прямоугольника.
2) найти длину вертикальной стороны прямоугольника.
3) сложить два получившихся числа.
4) умножить получившиеся число на два.
СПОСОБ №2
1) найти длину горизонтальной стороны прямоугольника.
2) умножить получившиеся число на два.
3) найти длину вертикальной стороны прямоугольника.
4) умножить получившиеся число на два.
5) сложить два получившихся числа.
4096 Кб - 3 Мб + 49 байт = 4 Мб - 3 Мб + 49 байт = 1 Мб + 49 байт = 2^23 бит + 49 * 8 бит = 8388608 бит + 392 бита = 8389000 бит