Question

НАЙТИ ПЯТУЮ ПО СЧЕТУ ЕДИНИЦУ В МАССИВЕ ИЗ 0 И 1

Answer 1

// PascalABC.NET 3.2, сборка 1374 от 10.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),0,1);
  a.Println;
  var b:=a.Select((x,i)->(x,i)).Where(x->x[0]=1).Select(x->x[1]).ToArray;
  if b.Count>=5 then
    Writeln('Номер пятой по порядку единицы в массиве равен ',b[4]+1)
  else Writeln('В массиве меньше пяти единиц')
end.

Пример
n= 17
1 0 1 0 1 1 0 0 1 0 0 1 1 0 0 0 1
Номер пятой по порядку единицы в массиве равен 9

Answer 2

Const n=10;
var a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
for i:=1 to n do
 begin
 a[i]:=random(2);
 write(a[i]:2);
 end;
writeln;
k:=0; i:=1;
while (i<=n)and(k<5) do
 begin
 if a[i]=1 then k:=k+1;
 i:=i+1;
 end;
if k=5
 then writeln('5-я единица - ',i-1,'-ый элемент массива')
 else writeln('В массиве меньше 5 единиц');
end.

Пример:
 0 1 1 0 1 1 1 0 0 1
5-я единица - 7-ый элемент массива

Answer 3

Для нахождения пятой по счету единицы в массиве из 0 и 1, можно использовать следующий код на языке Java:

public static int findFifthOne(int[] array) {
    int count = 0;
    for (int i = 0; i < array.length; i++) {
        if (array[i] == 1) {
            count++;
            if (count == 5) {
                return i;
            }
        }
    }
    return -1; // Если пятая единица не найдена
}

Этот метод будет перебирать элементы массива и подсчитывать количество единиц. Когда будет найдена пятая единица, метод вернет индекс этой единицы в массиве. Если пятая единица не будет найдена, метод вернет -1.

Примечание: Предполагается, что массив содержит только 0 и 1.

Например, если у нас есть массив `[0, 1, 0, 1, 0, 1, 0, 1, 0, 1]`, то пятая по счету единица находится на индексе 9.

Пожалуйста, обратите внимание, что код на языке Java. Если вам нужен код на другом языке программирования, пожалуйста, уточните это.