ответ:
var
a: array[1..10] of integer;
i, n, min, b: integer;
begin
readln(n);
b: =0;
for i: =1 to n do
read(a[i]);
a[1]: = min;
for i: =1 to n do
if a[i]< min then
begin
b: =b+1;
end;
writeln(b);
for i: = 1 to n do
write(a[i],' ');
end.
объяснение:
если я все правильно понял, нам надо найти количество замен элементов массива на минимум.
Поделитесь своими знаниями, ответьте на вопрос:
при любых a, b и c данное выражение истинно.
объяснение:для начала эквивалентность и импликацию.
экивалентность (≡) раскрывается вот так:
x ≡ y = x ∧ y ∨ -x ∧ -yприменим к нашим данным:
a ∧ b ≡ b ∧ c = (a ∧ b ∧ b ∧ c) ∨ ( -(a ∧ b) ∧ -(b ∧ c) ) =
первая скобка по закону повторения (b ∧ b = b), а вторая скобка, а точнее отрицание раскрывается по закону де моргана:
= (a ∧ b ∧ c) ∨ ( -a ∨ -b ∧ -b ∨ -c) =
по закону исключения третьего (a ∨ -a = 1) запись:
= 1
на самом деле я здесь сильно запись. на самом деле нам не помешало бы раскрыть данную дизъюнкцию, "перемножив" a на -a, a на -b, a на -c, b на -a и так далее. но в итоге данная запись сократится в единицу.
теперь рассмотрим импликацию (⇒):
(x ⇒ y) = -x ∧ yприменим к нашим данным:
(-c ⇒ a) = -(-c) ∧ a =
по закону двойного отрицания (-(-c) = c):
c ∧ a
итого наш пример принял такой вид:
1 ∨ c ∧ a
данное выражение всегда истинно, поскольку дизъюнкция истинна в том случае, когда одно из выражений истинно, а в нашем случае левая часть (единица), то есть дизъюнкция вседа истинна.