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