While (условие) do
begin
(пишем что выполнить)
end;
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.
Ответ:Это 1-кластер состоящий из секторов(512 байт
)
Язык какой?
...............................