6
сначала 33, а потом по центрам, ну кароч знаешь
Так как в условии 2 союза и,то для того,чтобы запись подошли все 3 условия должны совместно выполнены.
На фото видно(для наглядности поставил точки).
Там где есть три точки по условиям,те записи подходят.
На один символ (букву) необходим 1 байт информации или 8 бит.
Var a:array[1..10] of integer;
i,count:integer;
begin
for i:=1 to 10 do begin
a[i]:=1+random(10);
write(a[i],' ');
end;
count:=0;
for i:=1 to 10 do begin
if a[i]=1 then
count:=count+1;
end;
writeln('Кол-во элементов равных единице=', count);
end.