Uses crt;
var e:array[1..3,1..7] of integer;
s,max,n,m:integer;
index,sum:integer;
<span>procedure max_el;</span>
begin
max:=e[1,1];
sum:=0;
index:=0;
for n:=1 to 3 do
begin
for m:=1 to 7 do
begin
if e[n,m]>max then
begin
max:=e[n,m];
index:=m;
end;
end;
end;
for n:=1 to 3 do
begin
if e[n,index]<0 then
begin
sum:=sum+e[n,index];
end;
end;
writeln('naibolwiy element = ',max,' summa otricatelnyh= ',sum);
end;
begin
clrscr;
writeln('elementy massiva');
writeln;
randomize;
for n:=1 to 3 do
begin
for m:=1 to 7 do
begin
e[n,m]:=random(100) -50;
write('',e[n,m],' ');
end;
writeln;
end;
writeln;
writeln;
max_el;
readkey;
end<span>.</span>
var i,j:integer;
begin
for i := 1 to 4 do
begin
for j:= i to 4 do write ('3 ');
writeln
end
end.
Ответ:Два игрока, Петя и Ваня, играют в следующую игру. Перед игроками лежат две кучи камней. Игроки ходят по очереди, первый ход делает Петя. За один ход игрок может добавить в одну из куч один камень или увеличить количество камней в куче в два раза. Например, пусть в одной куче
6
6
камней, а в другой
9
9
камней; такую позицию мы будем обозначать
(6, 9)
(6,9)
. За один ход из позиции
(6, 9)
(6,9)
можно получить любую из четырёх позиций:
(7, 9)
(7,9)
,
(12, 9)
(12,9)
,
(6, 10)
(6,10)
,
(6, 18)
(6,18)
. Чтобы делать ходы, у каждого игрока есть неограниченное количество камней.
Игра завершается в тот момент, когда суммарное количество камней в кучах становится не менее
74
74
. Победителем считается игрок, сделавший последний ход, то есть первым получивший позицию, в которой в кучах будет
74
74
или больше камней.
В начальный момент в первой куче было
12
12
камней, во второй куче –
S
S
камней,
1 \leq S \leq 61
1≤S≤61
Объяснение:
2
10240
3
1,25
256
Надеюсь помогла.
Устройствами ввода являются:
1-<span>Сканер
2-</span>Клавиатура
3-Веб-камера
4-<span>Мышь</span>