var
a:array[1..10,1..10] of integer;
b:array[1..10,1..10] of integer;
sum:array[1..10,1..10] of integer;
pol,otr,max,min:real;
i,j,indexi,indexj:integer;
begin
min:=0;
max:=0;
randomize;
for j:=1 to 10 do
begin
for i:=1 to 10 do
begin
randomize;
a[i,j]:=random(51);
randomize;
b[i,j]:=random(51);
a[i,j]:=a[i,j]*2;
writeln(a[i,j]);
a[i,j]:=a[i,j]/2;
end;
end;
for j:=1 to 10 do
begin
for i:=1 to 10 do
begin
a[i,j]:=a[i,j]+b[i,j];
writeln(a[i,j]);
a[i,j]:=a[i,j]-b[i,j];
end;
end;
for j:=1 to 10 do
begin
for i:=1 to 10 do
begin
if a[i,j]<min then
begin
min:=a[i,j];
indexi:=i;
indexj:=j;
end;
end;
end;
writeln(min,indexi,indexj);
for j:=1 to 10 do
begin
for i:=1 to 10 do
begin
if (a[i,j]>0) and (a[i,j]>max) then
max:=a[i,j];
end;
end;
writeln(max);
max:=0;
for j:=1 to 10 do
begin
for i:=1 to 10 do
begin
if (a[i,j]<0) and (a[i,j]>max) then max:=a[i,j];
end;
end;
writeln(max);
end.
программа выполняет сразу все 7 пунктов. Значения задаются сами. На выходе с каждой строки Вы получите каждый пункт задания.
Выигрывает 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|
надеюсь, что стало понятно :)
Решение показано в прилагаемом файле. В столбцы B, C и E записываются исходные данные. В столбце D - формулы (как показано на рисунке). Объемы производства 2 т и 2 т. Выручка = 1000