program n_1;
const n=7;
var i, m: integer; a:array [1..n] of real;
begin
m:=1;
for i:=1 to n do begin
read(a[i]);
if a[i]>a[m] then m:=i;
end;
writeln('Наибольший элемент массива из 7 чисел находится под номером ', m, ' и равен ', a[m]:0:10);
end.
Ответ:
0
Объяснение:
(A∨N) & ¬(A∨N) = 0
Обозначив (A∨N) через B, можно написать B & ¬B, а это тождественно 0.
Строится двоичная запись числа N вроде
Инофрмация полученная с помощью органов обоняния, это запахи.