В многопользовательской игре Agar.io игроки управляют бактериями. У каждой бактерии есть размер — целое положительное число. Если встречаются две бактерии разного размера, то бактерия большего размера поглощает меньшую бактерию. При этом меньшая бактерия исчезает, а размер большей бактерии увеличивается на размер меньшей бактерии. Если встречаются две бактерии равного размера, то ничего не происходит. Побеждает игрок, чья бактерия останется на игровом поле одна. В игре участвуют N игроков, вам даны размеры их бактерий. Определите, какие из игроков имеют возможность выиграть в этой игре. Входные данные Программа получает на вход целое число N, 1 ≤ N ≤ 105 — количество игроков. Следующие N строк содержат по одному числу ai —размеры бактерий, 1 ≤ ai ≤ 109. Числа ai заданы в порядке неубывания. Выходные данные Программа должна вывести N чисел равных «0» или «1», по одному числу в строке. Если i-е число равно 0, то это означает, что i-й игрок (размер бактерии которого первоначально был равен ai) ни при каких обстоятельствах не может выиграть в этой игре. Если i-е число равно 1, то это означает, что i-й игрок имеет возможность выиграть в этой игре.
Ответы
Результат работы и листинг программы в приложениях.
Написано в PascalABC.NET но должно работать во всех Паскалях.
----------------------------
PROGRAM A20;
CONST
max = 100;
TYPE
matrix = array[1..max,1..max]of shortint;
VAR
ar:matrix;
num:byte;
i,j:byte;
a,b,c:byte;
q:boolean;
BEGIN
repeat
// num := 5;
write('Введите размер матрицы n=');
readln(num);
for i:=1 to num do begin
for j:=1 to num do
read(ar[i,j]);
end;
i:=1;//диагональ
q:=true;
while q and (i<num) do begin
j:= i+1;//колонка и ряд
while q and (j<=num) do begin
a := ar[j,i];
b := ar[i, j];
if (ar[j,i] <> ar[i, j])
then q:=false;
j:=j+1;
end;
i:=i+1;
end;
if q then
writeln('YES')
else
writeln('NO');
write('Введите 1 чтобы продолжить. 0 чтобы завершить');
readln(i)
until(i=0);
END.
Написано в PascalABC.NET но должно работать во всех Паскалях.
----------------------------
PROGRAM A20;
CONST
max = 100;
TYPE
matrix = array[1..max,1..max]of shortint;
VAR
ar:matrix;
num:byte;
i,j:byte;
a,b,c:byte;
q:boolean;
BEGIN
repeat
// num := 5;
write('Введите размер матрицы n=');
readln(num);
for i:=1 to num do begin
for j:=1 to num do
read(ar[i,j]);
end;
i:=1;//диагональ
q:=true;
while q and (i<num) do begin
j:= i+1;//колонка и ряд
while q and (j<=num) do begin
a := ar[j,i];
b := ar[i, j];
if (ar[j,i] <> ar[i, j])
then q:=false;
j:=j+1;
end;
i:=i+1;
end;
if q then
writeln('YES')
else
writeln('NO');
write('Введите 1 чтобы продолжить. 0 чтобы завершить');
readln(i)
until(i=0);
END.
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandom(20,-99,99); mas.Println;
var a:=mas[0:10]; var b:=mas[10:20];
Writeln('количество положительных элементов=',a.Where(t->t>0).Count);
Writeln('количество отрицательных элементов=',b.Where(t->t<0).Count);
end.
это как учат в школе :->
var
i,k,l:integer;
mas:Array[1..20] of integer;
begin
randomize;
for i:=1 to 20 do
mas[i]:=random(-99,99);
for i:=1 to 10 do
if mas[i]>0 then
k:=k+1;
for i:=11 to 20 do
if mas[i]>0 then
l:=l+1;
Writeln('количество положительных элементов=',k);
Writeln('количество отрицательных элементов=',l);
end.
begin
var mas:=ArrRandom(20,-99,99); mas.Println;
var a:=mas[0:10]; var b:=mas[10:20];
Writeln('количество положительных элементов=',a.Where(t->t>0).Count);
Writeln('количество отрицательных элементов=',b.Where(t->t<0).Count);
end.
это как учат в школе :->
var
i,k,l:integer;
mas:Array[1..20] of integer;
begin
randomize;
for i:=1 to 20 do
mas[i]:=random(-99,99);
for i:=1 to 10 do
if mas[i]>0 then
k:=k+1;
for i:=11 to 20 do
if mas[i]>0 then
l:=l+1;
Writeln('количество положительных элементов=',k);
Writeln('количество отрицательных элементов=',l);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
7. Шар беті – А) Сфера.B) Конус.C) Цилиндр.D) Параллелепипед.E) Шаршы.
Автор: alexst123012225
Как с ребуса закодировать слово компьютер
Автор: Merkuloff78
каждый 2/3 игрок выйгрывает