Складіть блок схему фрагмента алгоритму, у якому в цикл з лічильником вкладено неповне розгалуження. Поясніть виконання складеного фрагмента.

10 rem создание массива а для заполнения списком из 10 чисел 20 dim a (1,10): 30 rem начало цикла для заполнения массива 40 for i=1 to 10 50 rem формирование запроса на ввод i-го числа 60 print “введите”, i, “-ое число” 70 rem ввод i-го числа 80 input j 90 rem присвоение i-му элементу массива значения числа 100 a(i)=j 110 next i 120 rem цикл сортировки списка чисел по возрастанию 130 for i =1 to 9 140 for j=i+1 to 10 150 rem условие для списка 160 if a(i)> a(j) then b=a(i): a(i)=a(j): a(j)=b 170 next j, i 180 rem цикл вывода списка на экран 190 for i=1 to 10 200 print а(i) 210 next i работа основного алгоритма (130-170 шаги программы) проверена на визуал бейсике. работает!

var

  x : array [1..15] of integer;

  i : integer;

  min : integer;

  kol_nol : integer;

begin

  kol_nol : = 0;

  for i: =1 to 15 do

  begin

  write ("введите элемент массива: ");

readln(x[i]);

end;

min : = x[1];

for i : = 0 to 15 do

begin

  if (x[i] > 0) then

  begin

  if (x[i] < min) then

  begin

    min : = x[i];

  end;

  end;

  if (x[i] = 0) then

  begin

  inc(kol_nol);

  end;

 

writeln(min);

writeln(kol_nol);

end;