Var a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(20,100);
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k1:=k1+1
else k2:=k2+1;
writeln('Чётных элементов: ',k1);
writeln('Нечётных элементов: ',k2)
end.
var i,min:integer;
a:array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(45)-22;
write(a[i],' ');
end;
writeln;
for i:=1 to 10 do begin
if a[i]<0 then min:= min+1;
end;
writeln('Количество отрицательных элементов:',min);
end.
Фрагмент программы вначале помещает в переменную m значение элемента массива a[4]=7. Далее в цикле просматриваются элементы массива с номерами от 3 до 6 и сравниваются с текущим значением m. В случае, если значение m окажется меньше очередного элемента, значение этого элемента заносится в m. Легко видеть, что это алгоритм нахождения максимума среди элементов a[3]..a[6]. На выводе будет значение m=12.
<em>Ответ:12</em>
10
префиксное свойство - один код не может быть префиксом другого, значит (в данной задаче) не может начинаться с 00, 01, 11.
значит первые две цифры = 10. других нет, так как минимальный надо, а вероятности не заданы.