Напишите программу на паскале найти минимальный элемент массива заменить все элементы массива до минимального средним арифметическим элементов массива

PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var a := SeqRandomReal(ReadInteger('n='), -10, 10)

     .Select(t -> real(Round(t, 2))).ToArray;

 a.Println;

 var (imin, avg) := (a.IndexMin, a.Average);

 a := a.Select((v, i)-> i < imin ? avg : a[i]).ToArray;

 a.Println

end.

Объясняю.За ответ отметить
1)сначала подставим значения в выражение:
НЕ(3больше2) и НЕ(3=5)
2)запишем значения выражения:
0 и 1
3)И-это связка &,в алгебре логики(информатика,9 класс) это у нас знак конъюнкции.
Определение:конъюнкция-логическое умножение.
Т.е. если все входящие переменные истинны(равны 1,ноль это ложь,а 1-истина),то и конъюнкция истинна.
Из выражения "не(X>Z)и не(X=Y), если X=3, Y=5, Z=2" мы имеем:
0 & 1.
0 не равен единице,из этого следует,что здесь конъюнкция ложна.
Кроме конъюнкции действий нет,а это значит,что она-это всё выражение.Если конъюнкция здесь ложная,то и выражение ложное,соотв.оно имеет значение 0.
ответ:0

Объясняю.За ответ отметить
1)сначала подставим значения в выражение:
НЕ(3больше2) и НЕ(3=5)
2)запишем значения выражения:
0 и 1
3)И-это связка &,в алгебре логики(информатика,9 класс) это у нас знак конъюнкции.
Определение:конъюнкция-логическое умножение.
Т.е. если все входящие переменные истинны(равны 1,ноль это ложь,а 1-истина),то и конъюнкция истинна.
Из выражения "не(X>Z)и не(X=Y), если X=3, Y=5, Z=2" мы имеем:
0 & 1.
0 не равен единице,из этого следует,что здесь конъюнкция ложна.
Кроме конъюнкции действий нет,а это значит,что она-это всё выражение.Если конъюнкция здесь ложная,то и выражение ложное,соотв.оно имеет значение 0.
ответ:0