Помогите пожалуйста с структурной схемой (блок схемой) по паскалю var a:array[1..100] of real; i,n,j :integer; x ,max, sum :real; begin write ('Введите количество элементов массива n='); readln(n); writeln ('Введите количество элементов'); for i:=1 to n do begin write ('a[',i,']='); readln(a[i]); end; max:=a[1]; for i:=1 to n do begin If (abs(a[i])>abs(max)) then begin max:=a[i]; end; end; sum:=0; for i:=2 to n do begin if ((a[i+1]>0)and(a[i-1]>0)) then sum:=sum+a[i]; end; for j:=n downto 2 do for i:=1 to j-1 do if (a[i]>a[i+1]) then begin x:=a[i]; a[i]:=a[i+1] ; a[i+1]:=x; end; writeln('Максимальное по модулю число',max); writeln('summa=',sum); for i:=1 to n do writeln(a[i]); readln; end.