Здравствуйте!!! помогите пожалуйста с задачей ** паскаль ( массивы)

Question

Здравствуйте!!! помогите пожалуйста с задачей на паскаль ( массивы)

---

Comments

Нет каких-либо условий по x, y ?

---

нет

---

n больше или равно 10

---

Вы сможете скинуть решение?

---

Если без учёта расположения кеглей, то всё очень просто, можно обнулить содержимое элементов массива от x до y. Но фраза: "сектор между кеглями" вгоняет в ступор

---

Меня не было сегодня в школе, я вам отправила то , что диктовал учитель

---

просто урок у меня завтра, а ничего не понимаю в таких задачах

---

Простите, честно - не знаю, как такое решать, для меня условий мало

---

ничего страшного, спасибо)))

---

Да не думаю, что тут нужно учитывать сложные варианты построения кеглей. Иначе действительно еще много данных нужно будет. Сделал для линейного построения.

Answer 1

Var
  n,k,x,y,s,i,j: integer;
  a:array[1..10] of integer;
begin
writeln('Число кеглей n: ');
readln(n);
for i:=1 to n do a[i]:=1;//ставим кегли
writeln('Число бросков k: ');
readln(k);
for i:=1 to k do
  begin
  writeln(i,' бросок. Введите x y: ');
  readln(x,y);
  for j:=x to y do a[j]:=0;//убираем сбитые
  end;
for i:=1 to n do if a[i]=1 then s:=s+1;//считаем оставшиеся
writeln('Осталось кеглей: ',s)
end.