<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=SeqRandom(ReadInteger('n='),-99,99).Select(t->t/10).ToArray;
a.Println;
var (imax,imin):=(a.IndexMax,a.LastIndexMin);
Swap(a[imin],a[imax]); a.Println
end.
<u>Пример</u>
n= 15
-4.3 -5.6 7.2 -5.3 -7.7 9.3 1.4 0.3 -4.7 6.3 5.7 7.5 -8.6 6.9 -2.5
-4.3 -5.6 7.2 -5.3 -7.7 -8.6 1.4 0.3 -4.7 6.3 5.7 7.5 9.3 6.9 -2.5
1. Список имен файлов
2. Самый верхний корневой каталог в иерархической файловой системе
759 / 12 = 63, остаток 3
63 / 12 = 5, остаток 3
5 / 12 = 0, остаток 5
А теперь выписываем остатки в обратном порядке.
759₁₀ = 533₁₂
А вот мой жираф :DD
.........................
8 цветов кодируются 2^n=8, n=3 битам
Объем видеопамяти
640 * 350 * 3 = 672 000 бита
<span>512 цветная палитра требует
2^n=512, n=9 бита
672 000 / 9 = 74666,67 бита на изображение
Изображение может быть например</span><span>
600</span> * 124 точек
часть памяти останется свободной
74666 - 600 * 124 = 266 бита