Для этого вам стоит воспользоватся сортировкой <span>"пузырьком" и отсортировать ваш массив
</span>
Программа:
var i: integer;
begin
for i:=10 to 99 do
if abs(i div 10 - i mod 10) = 3 then write(i,' ');
end.
Результат:
14 25 30 36 41 47 52 58 63 69 74 85 96
Самый маленький круг-желтый
потом зеленый
красный вокруг зеленого
самый большой синий
Объяснение ...в множестве многоугольников есть четырехугольники (ромбы,прямоугольники, трапеции и др)
потом четырехугольники, только с прямыми углами---прямоугольники
ну и затем квадраты их меньше всего
Var a,b,c:integer; x:char;
begin
repeat
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
if (a+b>c)and(a+c>b)and(b+c>a)
then writeln('Стороны могут образовать треугольник')
else writeln('Стороны не могут образовать треугольник');
writeln('Желаете повторить? (Y/N)');
readln(x);
until x='N';
end.
Пример:
<span>a = 3
b = 5
c = 4
Стороны могут образовать треугольник
Желаете повторить? (Y/N)
Y
a = 8
b = 1
c = 5
Стороны не могут образовать треугольник
Желаете повторить? (Y/N)
<span>N</span>
</span>
//PascalABC.NET 3.2 сборка 1318
Var x1,y1,x2,y2,x,y,x3,y3,x4,y4:integer;
begin
read(x1,y1,x2,y2,x,y);
x3:=x1;
y3:=y2;
x4:=x2;
y4:=y1;
if (x<x1) and (y<=y3) and (y>=y1) then writeln('W') else
if (x<x1) and (y>y3) then writeln('NW') else
if (x>=x1) and (x<=x2) and (y>y3) then writeln('N') else
if (x>x2) and (y>y3) then writeln('NE') else
if (x>x2) and (y<=y2) and (y>=y4) then writeln('E') else
if (x>x2) and (y<y4) then writeln('SE') else
if (x<=x4) and (x>=x1) and (y<y4) then writeln('S') else
if (x<x1) and (y<y1) then writeln('SW');
end.
Пример ввода:
-2 1 4 4 -3 5
Пример вывода:
NW