В многопользовательской игре Agar.io игроки управляют бактериями. У каждой бактерии есть размер — целое положительное число. Если встречаются две бактерии разного размера, то бактерия большего размера поглощает меньшую бактерию. При этом меньшая бактерия исчезает, а размер большей бактерии увеличивается на размер меньшей бактерии. Если встречаются две бактерии равного размера, то ничего не происходит. Побеждает игрок, чья бактерия останется на игровом поле одна.

В игре участвуют N игроков, вам даны размеры их бактерий. Определите, какие из игроков имеют возможность выиграть в этой игре.

Входные данные

Программа получает на вход целое число N, 1 ≤ N ≤ 105 — количество игроков. Следующие N строк содержат по одному числу ai —размеры бактерий, 1 ≤ ai ≤ 109. Числа ai заданы в порядке неубывания.

Выходные данные

Программа должна вывести N чисел равных «0» или «1», по одному числу в строке. Если i-е число равно 0, то это означает, что i-й игрок (размер бактерии которого первоначально был равен ai) ни при каких обстоятельствах не может выиграть в этой игре. Если i-е число равно 1, то это означает, что i-й игрок имеет возможность выиграть в этой игре.

👇

Увидеть ответ

Ответ:

askarovaalisa

03.02.2020

каждый 2/3 игрок выйгрывает

4,4(11 оценок)

Открыть все ответы

Ответ:

romanilblockp08hg1

03.02.2020

Результат работы и листинг программы в приложениях.
Написано в 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 ( вам проверьте, является ли двумерный массив симметричным относительно г

Решать через pascalabc.net ( вам проверьте, является ли двумерный массив симметричным относительно г

4,4(85 оценок)

Ответ:

tatyankafi

03.02.2020

//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.

Массив содержит 20 элементов. определить количество положительных элементов в первой его половине и