Нужно сделать блок схему даного когда программы #include #include #include #include #include #include #include using namespace std; void print(std: : vector & _coll, int i){ if(i > = _coll. return; else{ std: : cout < < _coll[i] < < ' '; print(_coll, i += 2); } } void input(std: : vector & _coll){ int value; std: : cout < < "введите номер : "; while(std: : cin > > value & & value ! = 0){ _coll.push_back(value); std: : cout < < "введите номер : "; } } int main() { std: : vector coll; input(coll); std: : cout < < "\nnumbers: "; print(coll, 0); std: : cout < < std: : endl < < std: : endl; return 0; }

Const       handsfree = false; var       a: array[1..100] of real;       i, n: integer;       sum_pos, sum_neg: real;       k_pos, k_neg: integer; begin       {ввод массива}       if handsfree then               n : = random(20) + 5       else begin               write('n = ');               readln(n);       end;             writeln('данные массива: ');       for i : = 1 to n do       begin               if handsfree then begin                       a[i] : = random(100) - 50;                       write(a[i], ' ');               end               else readln(a[i]);       end;       writeln();             {подсчет}       sum_pos : = 0;       k_pos : = 0;       sum_neg : = 0;       k_neg : = 0;       for i : = 1 to n do       begin               if a[i] > 0 then               begin                       sum_pos : = sum_pos + a[i];                       k_pos : = k_pos + 1;               end;                             if a[i] < 0 then               begin                       sum_neg : = sum_neg + a[i];                       k_neg : = k_neg + 1;               end;       end;       writeln('average (positives) = ', sum_pos / k_pos);       writeln('average (negatives) = ', sum_neg / k_neg); end.

Var       x0, xk, dx, x: real; function f(x: real): real; begin       f : = x * x + x + 5; end; begin       write('введите промежуток и шаг ([a,b] h) ');       readln(x0, xk, dx);             x : = x0;       writeln(' x ': 10, ' | ', ' f(x) ': 10);             repeat               writeln(x: 10: 3, ' | ', f(x): 10: 3);               x : = x + dx;       until x > xk; end.