Помогите,пожалуйста, решить задачи!

[Елена Лунёва]

Помогите,пожалуйста, решить задачи!

Задана последовательность X = (x1, x2, …, x10).
Сформировать из неё одномерный массив Y, состоящий только из неповторяющихся элементов массива Х. Если таковых не окажется, вывести фразу «Искомых элементов нет». Полученный массив напечатать в строчку.
X={0.9, 1.5, 2.4, 0, -15, 0.9 –7.8, 2.4, 1.1, 3.91}.

 

[Vladimir_S]

1.

CONST
N=10;
X:ARRAY[1..N] of REAL = (2.95, 7.34, -4.2, 0.5, -4.9, 0.22, 0.35, 1, 10.1, 12);

VAR
Ro:REAL;
i,Ny:INTEGER;
Y:ARRAY[1..N] of REAL;
BEGIN
Ro:=1;
FOR i:=1 TO (N div 2) DO
Ro:=Ro*X[2*i];
Ny:=0;
FOR i:=1 TO N DO
IF X>=Ro THEN
BEGIN
INC(Ny);
Y[Ny]:=X
END;
IF Ny=0 THEN
WriteLn('Искомых элементов нет') ELSE
FOR i:=1 TO Ny DO
WriteLn(Y:5:2);
READLN;
END.

2.

CONST
N=10;
X:ARRAY[1..N] of REAL = (0.9, 1.5, 2.4, 0, -15, 0.9, –7.8, 2.4, 1.1, 3.91);

VAR
No_Repeat:BOOLEAN;
i,j,Ny:INTEGER;
Y:ARRAY[1..N] of REAL;

BEGIN
Ny:=0;
FOR i:=1 TO N DO
BEGIN
No_Repeat:=TRUE;
FOR j:=1 TO N DO
IF i<>j THEN
IF X=X[j] THEN No_Repeat:=FALSE;
IF No_Repeat THEN
BEGIN
INC(Ny);
Y[Ny]:=X;
END;
END;
IF Ny=0 THEN
WriteLn('Искомых элементов нет') ELSE
FOR i:=1 TO Ny DO
Write(Y:7:2);
READLN;
END.