Для яких форм подання інформаційних моделей використовують графічні редактори

uses
  GraphABC;

var
  i: word; //Было предпочтительнее использовать byte,
             //ведь от 3 до 7 считаем, но тип word старее,
             //а к byte могут придраться

begin
  SetBrushColor(clBlue); //Проставляем цвет кисти, я не
                                    //нашёл функции рисования круга,
                                    //где можно было бы указать цвет
  for i := 3 to 7 do
  begin
    FillCircle(200, 200, 10 * i); //Рисуем круг, радиус от 30 до 70
    sleep(500); //Поскольку круги в конечном счёте всё равно
                     //затираются более большими, будем выводить
                     //с задержкой
  end;
end.

Объяснение:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

#include <iostream>

using namespace std;

 

int main()

{

   setlocale(LC_ALL, "Rus");

 

 

   int A[12];

   int n = 12, i;

 

   cout << "Введите 12 n" << endl;

 

 

 

   for (i = 1; i < n; i++)

   {

       cout << "A[" << i << "]=";

       cin >> A[i];

   }

 

 

 

   for (int j = 1; j < 12; j++) //Выполняет 12 шагов во втором цикле за один запуск

   {

       

       for (int j = 1; j < 12; j++)

       {

           if (A[j] > A[j + 1])

           {

               int d = 0;

               d = A[j + 1];

               A[j + 1] = A[j];

               A[j] = d;

           }

       }

   }

   for (int k = 0; k < 12; k++)

   {

       cout << A[k] << " ";

   }

}