Самый простой метод: объявить число Pi как константу. Или можно сделать так:
<span>#define _USE_MATH_DEFINES
</span>#include <iostream>
<span>#include <cmath>
#include <math.h></span>
MCMXCV = 1995
M = 1000
CM = -100 + 1000 = 900
XC = -10 + 100 = 90
V = 5
1000 + 900 + 90 + 5 = 1995
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;
a.Sort; a.Println;
Writeln('Кол-во разных чисел равно ',a.Distinct.Count)
end.
<u>Пример</u>
n= 13
-1 1 3 -2 8 -9 9 -1 -8 -8 9 -9 2
-9 -9 -8 -8 -2 -1 -1 1 2 3 8 9 9
Кол-во разных чисел равно 9
Информатика))))) P.S. если несложно, отметь мой ответ, как лучший)