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

var  

  arr:array[1..1000] of integer;

  i,N:integer;

  max:integer;

begin

   max:=1;

   

   write('Укажите кол-во эл-ов - ');

   

   read(N);

   

   for i:=1 to N do//Присваивание и вывод массива

   begin

       arr[i]:=1+random(100);

       

       write(arr[i],'  ');

       

       if arr[i]>max then max:=arr[i];

   end;

   

   writeln;

   

   writeln('Максимальный эл-т - ',max);

   

   for i:=1 to N do//Увеличение чет. эл-ов

     begin

     if arr[i] mod 2=0 then arr[i]:=arr[i]+max;

     

     write(arr[i],'  ');

     end;

 

end.

Объяснение:

Uses Crt;

Const
   N = 39;
Var
   X:array[1..N] of integer;
   i,j,k:integer;

Begin
Randomize;
ClrScr;
k:=0;
WriteLn('Исходный массив: ');
For i:= 1 to N do
    Begin
    X[i]:=random(53)-15;
    if X[i]<30 then
       Begin
       TextColor(12);
       k:=k+1;
       End
    else TextColor(7);
    Write(X[i],' ');
    End;
WriteLn;
WriteLn;
TextColor(7);
WriteLn('Числа, меня тридцати: ',k);
WriteLn;
WriteLn('Упорядоченный массив: ');
For i:= 1 to N do
    For j:= 1 to N-1 do
        if X[j]>X[j+1] then
           Begin
           k:=X[j+1];
           X[j+1]:=X[j];
           X[j]:=k;
           End;
k:=0;
For i:= 1 to N do
    Begin
    Write(X[i],' ');
    j:=X[i];
    While j div 10 <> 0 do
       j:=j div 10;
    if (j = 2)or(j = -2) then
       k:=k+1;
    End;
WriteLn;
WriteLn;
WriteLn('Числа, начинающиеся с двойки: ',k);
ReadLn;
End.