Дан двух мерный массив, вывести на экран элементов главной диагонали.

uses crt; type matr=array[1..20,1..20] of integer; proc=procedure(m: matr; n: byte);

procedure glav(m: matr; n: byte); var i: byte; beginwriteln('главная диагональ  : '); for i: =1 to n dowrite(m[i,i]: 3,' '); writeln; writeln; end; procedure vyvod(m: matr; gl: proc; n: byte); begingl(m,n); end; var a: matr; n,i,j: byte; beginclrscr; randomize; repeatwrite('размер матрицы до 20 n='); readln(n); until n in [1..20]; writeln('исходная матрица: '); for i: =1 to n do begin for j: =1 to n do begin a[i,j]: =random(40)+10; write(a[i,j]: 3,' '); end; writeln; end; writeln; vyvod(a,glav,n); readlnend.

выигрывает 2 игрок. для доказательства стоит рассмотреть дерево игры.

на доске записано 2.

первый игрок делает любой ход и на доске может появится одно из чисел 5, 7 или 4.

потом  ходит второй игрок. и на доске может появится одно из следующих чисел: 8, 9, 10, 12, 14. естественно, если каждый игрок играет на выигрыш, то числа 12 и 14 он писать не будет. тогда наступает ход первого игрока, при котором на доске может появится 11, 13, 16, 15, 20, 18. таким образом видим, что при любом ходе первого игрока, второй все равно выиграет.

                                                                                                                              |       2        |

1 игрок                                            | 5 |                                                    | 7  |                                                     |4|

2 игрок                  | 8           10         10|         |10              12         14 |        | 8       8       9|

1 игрок        |11  13  16|      |  13    15      20|           выигрыш 1      |11     13   16|   |12   14     18|

 

надеюсь, что стало понятно : )

Пусть скорость лодки в стоячей воде равна v км/ч, тогда её скорость по течению (v + 1) км/ч, против течения (v - 1) км/ч. время, за которое она преодолеет 255 км: по течению 255/(v + 1) часов, против течения 255/(v - 1) часов. по условию времена отличаются на 2 часа, составляем уравнение: 255/(v - 1) - 255/(v + 1) = 2 всё это составляет модель. решаем уравнение: 255/(v - 1) - 255/(v + 1) = 2 - домножаем на (v - 1)(v + 1) = v^2 -1 255(v + 1) - 255(v - 1) = 2(v^2 - 1) 255v + 255 - 255v + 255 = 2(v^2 - 1) 2 * 255 = 2(v^2 - 1) v^2 - 1 = 255 v^2 = 256 v = +- 16 отрицательный корень не удовлетворяет условию. ответ. 16 км/ч.