Составьте блок схему фрагмента алгоритма в котором цикл с предусловием вложено в полное разветвления и который выполняется, если результат проверки условия ветвления НЕТ.пояснить выполнения составленного фрагмента.

program mas_kol_otr_kol_p;

const

n=10;

var

i,s:integer;

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

begin

randomize;

writeln('Введите массив 》');

for i:=1 to n do

begin

a[i]:=random(61)-30;

write(a[i]:3,' ');

end;

writeln;

writeln('Меняем отрицательные на противоположные... 》');

for i:=1 to n do

begin

if(a[i]<0) then

a[i]:=abs(a[i]);

write(a[i]:3,' ');

end;

writeln;

writeln('Удаляем третий элемент... 》');

for i:=1 to n-1 do

begin

if(i>2) then

a[i]:=a[i+1];

write(a[i]:3,' ');

end;

writeln;

writeln('Считаем сумму... 》');

s:=0;

for i:=1 to n-1 do

s:=s+a[i];

write(s);

end.

2.
var n,s,i:integer;
begin
writeln ('Программа, которая вычисляет сумму нечетных чисел от 11 и до n, задаваемого клавиатуры (n>11)');
write ('Введите n: ');
readln (n);
for i:=11 to n do
if i mod 2 = 1 then s:=s+i;
writeln ('Сумма нечетных чисел от 11 до ',n,' равна ',s)
end.

1.
var a,b:real;
begin
writeln ('Программа для решения уравнения ax=b');
write ('Введите a и b: ');
readln (a,b);
if (a=0) and (b=0) then writeln ('x - любое число')
else if (a=0) and (b<>0) then writeln ('решений нет')
else writeln ('x = ',b/a)
end.