Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 3 и оканчивающихся на 1. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 100. Введённые числа по модулю не превышают 300. Программа должна вывести одно число: количество чисел, кратных 3 и оканчивающихся на 1.

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|

 

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