<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
Музыкант дружил с Андреевым, сейчас дружит с Ивановым [3], значит, он не Андреев и не Иванов. Кроме того, Андреев никогда не был знаком с Петровым [4], но был дружен с музыкантом, значит, Петров - тоже не музыкант. Поэтому музыкант Сидоров.
Иванов и Андреев - не солисты хора, так как были на его концерте [1], отсюда единственная возможность - солист хора - Петров.
Петров незнаком с Андреевым [4], но позировал художнику [2], поэтому знаком с ним. Значит, Андреев - не художник, Андреев - танцор.
Для Иванова остался последний вариант, Иванов - художник.
Program z1;var N,A,B,C,D:integer;beginreadln(N);A:=N div 1000;B:=(N div 100) - (N div 1000)*10;C:=(N div 10)- (N div 100)*10;D:=(N mod 10);n:=0;if (A mod 3)=0 then N:=N+A;if (B mod 3)=0 then N:=N+B;if (C mod 3)=0 then N:=N+C;if (D mod 3)=0 then N:=N+D;writeln(N); end.