<u>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadArrInteger('Вводите:',ReadInteger('n='));
Writeln('Различных элементов- ',a.Distinct.Count)
end.
<em>Пример</em>
n= 10
Вводите: 456 12 6432654 -35424 -323421341 0 6432654 634222 -234532 34
Различных элементов- 9
Решение - в прилагаемом файле.
А) Ложь (0 или 0)
б) Ложь (0 и 1)
в) Ложь (0 и 0)
Вызовите команду Изображение -> Разрешение печати.
Вот то что Вам нужно. В прикрепленном файле ест файл Excel который решает систем счислений автоматически))