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

profit?

 

program lol; varmas: array[1..20] of integer; max,min,i: integer; beginrandomize; for i: =1 to 20 dobeginmas[i]: =random(100); writeln('element #',i,': ',mas[i]); end; writeln; for i: =1 to 20 do if mas[i] > max then max: =mas[i]; writeln('max: ',max); min: =max; for i: =1 to 20 do if mas[i] < min then min: =mas[i]; writeln('min: ',min); writeln; for i: =1 to 20 doif (mas[i] > = min) and (mas[i] < = max) and (mas[i] mod 5 = 0) and (mas[i] < > 0) thenwriteln('element #',i,': ', mas[i]); readln; end.

Дерево игры - в прилагаемом файле. у игрока, делающего ход первым (пети) есть выигрышная стратегия: первый ход должен быть +3 (в куче получится 13 камней). в этом случае при ходе второго игрока (вани) +3 (в куче 16 камней) первый (петя) выигрывает ходом *2 (в куче 32 камня); при ходе второго игрока (вани) *2 (в куче 26 камней) первый (петя) также выигрывает ходом *2 (в куче 52 камня). второй игрок (ваня) может выиграть только в случае, если первый (петя) сделает начальный ход *2 (в куче 20 камней), следующий ход (вани) *2 (в куче 40 камней) приводит к выигрышу.