Реферат: Лабораторные работы по информатике

8

-4 -2 5

6

-1

7

-10

9

INPUT "B="; B

INPUT "A="; A

INPUT "N="; N

DIM X(N), Y(N)

FOR I = 1 TO N

PRINT "X("; I; ")=";

INPUT X(I)

NEXT I

K = 0

FOR I = 2 TO N STEP 2

IF X(I) > A AND X(I) < B THEN

K = K + 1

Y(K) = X(I)

END IF

NEXT I

J = 0

FOR I = 1 TO N STEP 2

IF X(I) < 0 THEN

J = J + 1

Z(J) = ABS(X(I))

END IF

NEXT I

IF K = 0 THEN

PRINT "Нет массива Y"

ELSE

MINY = Y(1)