Показать сообщение отдельно
  (#2 (permalink)) Старый
Vladimir_S Vladimir_S вне форума
Member
 
Сообщений: 423
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
По умолчанию 23.12.2008, 22:18

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.
Ответить с цитированием
Ads