Непонятно, почему у вас координаты сначала написаны в двоичной системе, ведь в задаче про неё не написано.
Ну да ладно, я перевёл все координаты в десятичную систему счисления и нарисовал рисунок по этим точкам (смотри рисунки внизу). Вроде напоминает зайца какого то. Ну или Пятачка, друга Винни Пуха :)
var
n,i: integer;
a: array [1..10] of integer;
begin
n:=0;
for i:=1 to 10 do
begin
read (a[i]);
if a[i] mod 2=0 then n:=n+1;
end;
writeln ('четных значений -',n);
end.
//PascalABC.NET версия 3.3.5
var ar: array[0..3] of integer;
digits: array[0..9] of integer;
out: array[1..4, 1..7]of integer;
begin
for var i := 0 to 9 do
digits[i] := 0;
var sum := 0;
for var i := 1 to 2 do
begin
out[i][1] := 1053;
out[i][2] := 1077;
out[i][3] := 1074;
out[i][4] := 1077;
out[i][5] := 1088;
out[i][6] := 1085;
out[i][7] := 1086;
end;
out[4][1] := 1053;
out[4][2] := 1077;
out[4][3] := 1074;
out[4][4] := 1077;
out[4][5] := 1088;
out[4][6] := 1085;
out[4][7] := 1086;
out[3][1] := 1042;
out[3][2] := 1077;
out[3][3] := 1088;
out[3][4] := 1085;
out[3][5] := 1086;
out[3][6] := 160;
out[3][7] := 160;
var num := readinteger('Введите четырехзначное число:');
ar[3] := num mod 10;
ar[2] := num div 10 mod 10;
ar[1] := num div 100 mod 10;
ar[0] := num div 1000;
for var i := 0 to 3 do
digits[ar[i]] += 1;
for var i := 0 to 9 do
try
sum += digits[i] div digits[i];
except
on System.DivideByZeroException do
end;
for var i := 1 to 7 do
write(chr(out[sum][i]));
end.
Const n=20;
var a:array[1..n] of integer;
i,j,k,c:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(51)-25;
write(a[i]:4);
end;
writeln;
k:=0;
for i:=1 to n do
if a[i]<0 then
begin
k:=k+1;
c:=a[i];
for j:=i-1 downto k do a[j+1]:=a[j];
a[k]:=c;
end;
for i:=1 to n do write(a[i]:4);
writeln;
end.
Пример:
5 25 24 -20 13 18 -2 21 -24 14 -2 -25 -18 13 23 11 22 -22 -21 -22
-20 -2 -24 -2 -25 -18 -22 -21 -22 5 25 24 13 18 21 14 13 23 11 22