Нарисуйте блок-схему алгоритма "если на улице идет дождь, то нужно обуть резиновые сапоги, если нет - кроссовки". полное ветвление

Решение находится во вложении

// pascalabc.net 3.0, сборка 1052 const   nn=100; var   i,n: integer;   a: array[1..nn] of integer;   p: real; begin   write('количество элементов в массиве: '); read(n);   writeln('исходный массив');   for i: =1 to n do begin       a[i]: =random(51)-25;       write(a[i],' ')   end;   writeln;   p: =1;   writeln('нечетные элементы: ');   for i: =1 to n do begin       if a[i]< 0 then p: =p*a[i];       if a[i] mod 2 < > 0 then write(a[i],' ')   end;   writeln;   writeln('произведение отрицательных элементов: ',p) end. тестовое решение: количество элементов в массиве: 20 исходный массив -18 -9 18 15 7 -20 -4 18 -24 -6 -24 2 -3 -10 12 -4 19 4 0 -17 нечетные элементы: -9 15 7 -3 19 -17 произведение отрицательных элементов: -91371110400

Var   i,n: byte; begin   write('введите натуральное число от 1 до 10: ');   read(n);   if not (n in [1..10]) then writeln('недопустимое значение')   else       write('в римской записи: ');       case n of       4: writeln('iv');       5: writeln('v');       6: writeln('vi');       7: writeln('vii');       8: writeln('viii');       9: writeln('ix');       10: writeln('x');       else           begin for i: =1 to n do write('i'); writeln end       end; end. тестовое решение: введите натуральное число от 1 до 10: 3 в римской записи: iii