Question

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

Answer 1

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-ый элемент массива