Назовите общие имена объектов о которых сообщается в путеводителях.Назовите единичные имена объектов в которых можно рассказать человек после туристической поездки по Кыргызстану погите до завтра ​

Картинка

Объяснение:

На схеме цикл:

1) у = 2 * х   -   вычисляет у

2) выводит на экран значения х и у

3) х = х+1   -   увеличивает значение х на 1

4) х <= 0   -   проверяет условие (если да, то начинается сначала)

x = -5

y = 2 * -5 = -10

x = -5       y = -10

-4 <= 0     (да)

y = 2 * -4 = -8

x = -4       y = -8

-3 <= 0     (да)

y = 2 * -3 = -6

x = -3       y = -6

-2 <= 0     (да)

y = 2 * -2 = -4

x = -2       y = -4

-1 <= 0     (да)

y = 2 * -1 = -2

x = -1       y = -2

0 <= 0     (да)

y = 2 * 0 = 0

x = 0       y = 0

1 <= 0     (нет)

Var j, i, x:integer; a: array [1..20] of integer;
begin
     randomize;
     writeln();
     for i := 1 to 20 do
         a[i] := random(1000);
     for j := 2 to 10 do
         for i := 10 downto j do
             if a[i] < a[i - 1]
             then
             begin
                  x := a[i];
                  a[i] := a[i - 1];
                  a[i - 1] := x;
             end;
      for j := 12 to 20 do
         for i := 20 downto j do
             if a[i] > a[i - 1]
             then
             begin
                  x := a[i];
                  a[i] := a[i - 1];
                  a[i - 1] := x;
             end;
      for i := 1 to 20 do
      if i mod 2 = 0
      then
         a[i] := 3 * a[i]
      else
          a[i] := 2 * a[i];
      writeln();
      for i := 1 to 20 do
          write(a[i], ' ');
end.