Исключа́ющее «или» (сложе́ние по мо́дулю 2, XOR, строгая дизъюнкция, поразрядное дополнение, инвертирование по маске, жегалкинское сложение, логическое вычитание, логи́ческая неравнозна́чность) — булева функция, а также логическая и битовая операция, в случае двух переменных результат выполнения операции истинен тогда и только тогда, когда один из аргументов истинен, а другой — ложен. Для функции трёх (тернарное сложение по модулю 2) и более переменных — результат выполнения операции будет истинным только тогда, когда количество аргументов, равных 1, составляющих текущий набор, — нечётное. Такая операция естественным образом возникает в кольце вычетов по модулю 2, откуда и происходит название операции.
const N = 100;
var i: integer;
var A: array [1..N] of integer;
var s,acp: double;
var f: file of integer; // создаем типизированный файл
begin
assign(f,'C:\1\text.txt');
// Открытие файла в режиме записи
rewrite(f);
randomize;
For i:= 1 to N do
begin
a[i]:=random(201)-100;
write(f,a[i]);
end;
// Открытие файла в режиме чтения
reset(f);
// Здесь будем считать сумму всех элементов массива
s:= 0;
For i:= 1 to N do
begin
read(f,a[i]);
write(a[i],' ');
s:= s + a[i];
end;
close(f);
// Среднее арифметическое
acp := s/N;
// Теперь здесь будем считать сумму в числителе под корнем
s:=0;
For i:= 1 to N do
begin
s:=s+(a[i]-aсp)*(a[i]-aсp);
end;
s:=sqrt(s)/(N-1);
writeln(сhr(10),'Среднеквадратичное отклонение: ',s);
end.
