Как это делать сам хз вообще ад какой то
2^3=8 → от 5 до 8 всего (т.к. 2 бита - это 2^2=4)
Program primer;
Uses crt;
var i,n,ind: integer;
a:array[1..100] of integer;
begin clrscr;
randomize;
write('Pazmer massiva = ');
readln(n);
for i:=1 to n do
a[i]:= random(100)-70;
for i:=1 to n do
write(a[i]:5);
writeln;
writeln;
for i:=1 to n do
if a[i]<=0 then ind:=ind+1
else
begin
ind:=i;
writeln(ind); break;
end;
end.
<em>Решение:</em>
<em>1 - В</em>
<em>2 - С</em>
<em>3 - А</em>
<em>4 - E</em>
<em>5 - D</em>