Алгоритмічні структури бувають:
варіанти відповідей
A) наслідування, повторення, згортання,
Б) слідування, згортання, циклічна,
В) слідування, повторення, розгалуження,
Г) розгалуження, повторення, гортання​

pascal

Объяснение:

1)

const n = 20;

var i, s: integer;

   a: array[1..n] of integer;

begin

 randomize;

 for i := 1 to n do

 begin

   a[i] := random(31) - 15;

   Write(a[i], ' ');

   if a[i] > 9 then s := s + a[i];

 end;

 WriteLn;

 WriteLn('Сумма элементов, больших 9, равна ', s);

end.

2)

const n = 20;

var i, s: integer;

   a: array[1..n] of integer;

begin

 randomize;

 for i := 1 to n do

 begin

   a[i] := random(31) - 15;

   Write(a[i], ' ');

   if a[i] mod 2 = 0 then s := s + a[i];

 end;

 WriteLn;

 WriteLn('Сумма четных элементов равна ', s);

end.

В начале в строке находилось 333 троек по 8 плюс одна 8, всего 1000 восьмерок.
1. При выполнения цикла каждая из троек 8 будет заменена на одну 9. Значит у нас получится строка длиной в 334 символа, где 333 девятки и последний символ - восьмерка
2. Далее 333 девятки заменятся на 111 восьмерок плюс последняя восьмерка - всего получим 112 восьмерок
3. Из 112 восьмерок получится 37 девяток и одна восьмерка
4. И 37 девяток получим 12 восьмерок плюс одна девятка и плюс последняя восьмерка
5. 12 восьмерок дадут 4 девятки плюс последние 9 и 8
6. И наконец получаем строку 8998
ответ: 8998