Input a(I)

NEXT I

INPUT "Z="; Z

K = 0

FOR I = 1 TO N

IF A(I) <> Z THEN

K = K + 1

B(K) = A(I)

END IF

NEXT I

IF K > 0 THEN

FOR I = 1 TO K

PRINT "B("; I; ")="; B(I);

NEXT I

ELSE

PRINT "TAKIX ELEMENTOV NET";

END IF

END

end.

Дан одномерный массив.

Подсчитать процент нулевых элементов.

DIM I AS INTEGER, N AS INTEGER, K AS INTEGER

INPUT "N="; N

DIM A%(N)

FOR I = 1 TO N

PRINT "A(="; I; ")=";

Input a(I)

NEXT I

K = 0

FOR I = 1 TO N

IF A(I) = 0 THEN K = K + 1

NEXT I

PRINT "PROSENT="; K / N * 100;

END

Дан одномерный массив.

Определить какая сумма по абсолютной величине больше,

отрицательных или положительных элементов массива.

DIM I AS INTEGER, N AS INTEGER, SUMPOL AS INTEGER, SUMOTR AS INTEGER

INPUT "N="; N

DIM A%(N)

FOR I = 1 TO N

PRINT "A(="; I; ")=";

Input a(I)

NEXT I

SUMPOL = 0: SUMONR = 0

FOR I = 1 TO N

IF A(I) > 0 THEN

SUMPOL = SUMPOL + A(I)

ELSEIF A(I) < 0 THEN

SUMOTR = SUMOTR + A(I)

END IF

NEXT I

IF ABS(SUMOTR) > SUMPOL THEN

PRINT "MODUL SUMOTR > SUMPOL"

ELSE

PRINT "SUMPOL > MODUL SUMOTR"

END IF

END

Дан одномерный массив.

Определить есть ли в нем одинаковые элементы.

DIM I AS INTEGER, N AS INTEGER, F AS INTEGER, J AS INTEGER

INPUT "N="; N

DIM A%(N)

FOR I = 1 TO N

PRINT "A(="; I; ")=";

Input a(I)

NEXT I

F = 0

FOR I = 1 TO N

FOR J = 1 TO N

IF A(I) = A(J) AND I <> J THEN F = 1

NEXT J

NEXT I

IF F = 0 THEN

PRINT "NOT;"

ELSE

PRINT "YES";

END IF

END

Дан одномерный массив.

Все элементы, меньшие заданного значения, и их номера записать в новые массивы

DIM I AS INTEGER, N AS INTEGER, K AS INTEGER, Z AS INTEGER

INPUT "N="; N

DIM A%(N), B%(N), C%(N)

FOR I = 1 TO N

PRINT "A(="; I; ")=";

Input a(I)

NEXT I

INPUT "Z="; Z

K = 0

FOR I = 1 TO N

IF A(I) < Z THEN

K = K + 1

B(K) = A(I)

C(K) = I

END IF

NEXT I

IF K > 0 THEN

FOR I = 1 TO K

PRINT "B("; I; ")="; B(I); "C<"; I; ")="; C(I)

NEXT I

ELSE

PRINT "TAKIX ELEMENTOV NET";

END IF

END

Дан одномерный массив "A".

Вводится дополнительный массив "B" разрешенных значений.

Определить сколько элементов исходного массива "A" имеют неразрешенные значения

DIM I AS INTEGER, N AS INTEGER, K AS INTEGER, F AS INTEGER, J AS INTEGER, M AS INTEGER

INPUT "N="; N

INPUT "M="; M

DIM A%(N), B%(M)

PRINT "MASSIV A"

FOR I = 1 TO N

PRINT "A(="; I; ")=";

Input a(I)

NEXT I

PRINT "MASSIV B"

PRINT "MASSIV A"

FOR I = 1 TO M

PRINT "B(="; I; ")=";

Input b(I)

NEXT I

K = 0

FOR I = 1 TO N

F = 0

FOR J = 1 TO M

IF A(I) = B(J) THEN F = 1

NEXT J

IF F = 0 THEN K = K + 1

NEXT I

PRINT "K="; K

END

Дан одномерный массив "A".

Вводится дополнительный массив "B" разрешенных значений.

Составить вектор "C"из элементов массива "A", имеющих неразрешенные значения

DIM I AS INTEGER, N AS INTEGER, M AS INTEGER, K AS INTEGER, F AS INTEGER, J AS INTEGER

INPUT "N="; NINPUT "M="; M

DIM A%(N), B%(M), C%(N)

PRINT "MASSIV A"

FOR I = 1 TO N

PRINT "A(="; I; ")=";