Информатика 9 класс сделать нужно через программу паскаль
пригодность детали оценивается по размеру в, который должен соответствовать интервалу (a-±8). определить, имеются ли в партии из n деталей бракованные.
если "да", то подсчитать их количество.
иначе выдать отрицательный ответ.
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.