Вот на Pascal NET,только желтые точки будет почти не видно
uses GraphABC;
begin
//Левый верхний угол
PutPixel(1,1,clYellow);
//Левый нижний угол
PutPixel(1,WindowHeight-1,clYellow);
//Правый верхний угол
PutPixel(WindowWidth-1,1,clYellow);
//Правый нижний угол
PutPixel(WindowWidth-1,WindowHeight-1,clYellow);
<span>end.</span>
Всё на скриншотах подробно расписано
Если имеется в виду кодирование каждого места одним битом (0 - свободно, 1 - занято), то для первой области 10×12=120 бит, для второй области 17×8=136 бит.
Всего потребуется 120+136=256 бит
//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)
begin
var a:=ReadArrInteger('Введите элементы массива->',ReadInteger('Введите размер массива->'));
Println('Количество минимальных->',a.Where(t->t=a.min).Count);
end.
Пример:
Введите размер массива-> 10
Введите элементы массива-> 1 2 3 4 5 6 7 1 1 1
Количество минимальных-> 4