Question

помогите! информатика 9 класс сделать нужно через программу Паскаль

Пригодность детали оценивается по размеру В, который должен соответствовать интервалу (A-±8). определить, имеются ли в партии из N деталей бракованные.
если "да", то подсчитать их количество.
Иначе выдать отрицательный ответ.

Answer 1

var

 n, i, k: integer;

 a, b: real;

begin

 read(n, a);

 k := 0;

 for i := 1 to n do

 begin

   read(b);

   if (b < a - 8) or (b > a + 8) then

     k := k + 1;

 end;

 if k > 0 then

   write(k)

 else

   write('нет');

end.