Question

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

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.