Составить блок схему по : : бабушка попросила машу собрать ягоды крыжовника. девочка взяла лукошко и подошла к кусту. она осторожно срывала ягоду и опускала в её лукошко. так маша делала то тех пор, пока на кусте не осталось ни одной ягоды. из этих ягод сварили варенье. запишите действия маши в виде блок - схемы.

Рассуждение №1 а)  пусть в первом высказывании истинно первое утверждение и вася   - первый. тогда утверждение, что  юра второй - ложно, следовательно юра не второй. б) если вася первый, то в четвертом высказывании утверждение о том, что гриша первый ложно. следовательно гриша не первый, а юра - четвертый. в) если юра четвертый, то в пятом высказывании ложно утверждение, что иван второй. г) если иван не  второй, то в третьем высказывании истинно утверждение, что гриша четвертый. но в б) мы пришли к выводу, что четвертый юра, а двое не могут быть одновременно четвертыми. тогда утверждение а) о том, что вася первый - ложно и надо идти другим путем. рассуждение №2 а)  пусть в первом высказывании истинно второе утверждение и вася  не  первый, а юра - второй. б) если юра второй, то в четвертом высказывании утверждение что юра четвертый ложно, следовательно, истинно утверждение о том, что гриша первый. в) если гриша первый, то в третьем высказывании ложно утверждение о том, что гриша четвертый, но тогда истинно утверждение, что иван второй. г) утверждение, что  иван второй, противоречит выводу а), где принимается, что второй юра. следовательно, допущение что юра второй приводит нас к противоречию. итог: мы получаем противоречие, полагая, что любое из двух утверждений в высказывании 1 истинно, следовательно, имеются противоречия в условии и она не может быть решена. 

Const   n = 16; var   a, y: array[1..n] of integer;   i, m: integer;   s: longint; begin   write('введите число элементов в массивах m< 17: ');   readln(m);   if not (m in [1..16]) then m : = 16; { защита от дурака }   randomize;   //write('элементы массива: ');   s : = 0;   for i : = 1 to m do   begin       a[i] : = random(51) - 25;       y[i] : = random(41) - 20;       s : = s + a[i] * y[m - i + 1]       //write(x[i]: 5)   end;   if s < 24 then writeln('искомая сумма равна ', s)   else begin       write('массив a: ');       for i : = 1 to m do write(a[i]: 4);       write(#13#10, 'массив y: ');       for i : = 1 to m do write(y[i]: 4);       writeln   end end. тестовое решение: введите число элементов в массивах m< 17: 0 массив a:       6  25    9  -4  11  10 -18  11  18 -11 -24    1  13  -3 -10    0 массив y:       1    0    6    9  14 -14    3  -6 -17 -19  11  16  11 -20    5  19 введите число элементов в массивах m< 17: 10 массив a:       1    2    7    5    9 -16 -23  -4    5  -2 массив y:     -3  -5 -12 -20    2    1  -3  18  19 -17 введите число элементов в массивах m< 17: 10 искомая сумма равна 1