Input a(I)

NEXT I

MAX = A(1): IMAX = 1: MIN = A(1): IMIN = 1

FOR I = 1 TO N

IF A(I) > MAX THEN

MAX = A(I)

IMAX = I

END IF

IF A(I) < MIN THEN

MIN = A(I)

IMIN = I

END IF

NEXT I

B = A(IMAX): A(IMAX) = A(IMIN): A(IMIN) = B

FOR I = 1 TO N

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

NEXT I

END

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

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

массива.

DIM I AS INTEGER, N AS INTEGER, OTR AS INTEGER, POL AS INTEGER, NUL AS INTEGER

INPUT "N="; N

DIM A%(N)

FOR I = 1 TO N

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

Input a(I)

NEXT I

OTR = 0: POL = 0: NUL = 0

FOR I = 1 TO N

IF A(I) > 0 THEN

POL = POL + 1

ELSEIF A(I) < 0 THEN

OTR = OTR + 1

ELSE

NUL = NUL + 1

END IF

NEXT I

PRINT "POL="; POL; "OTR="; OTR; "NUL="; NUL

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 - 1

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

NEXT I

IF K = N - 1 THEN PRINT "YES" ELSE PRINT "NO"

END

Дан одномерный массив. Определить составляют ли элементы

массива строго возрастающую последовательность (второй способ).

DIM I AS INTEGER, N AS INTEGER, F 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 - 1

IF A(I + 1) <= A(I) THEN F = 1

NEXT I

IF F = 0 THEN PRINT "YES" ELSE PRINT "NO"

END

Дан массив А из 2*N элементов.

Получить новую последовательность A1, A2N, A2, A2N-1, …, AN, AN+1

DIM I AS INTEGER, N AS INTEGER

INPUT "N="; N

DIM A%(2 * N), B%(2 * N)

FOR I = 1 TO 2 * N

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

INPUT A(I)

NEXT I

B = A(1)

FOR I = 1 TO N

B(2 * I - 1) = A(I)

B(2 * I) = A(2 * N - I + 1)

NEXT I

A(N) = B

FOR I = 1 TO 2 * N

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

NEXT I

END

Дан массив А из 2*N элементов.

Получить новую последовательность A2N, AN, A2N-1, …, AN+1, A1.

DIM I AS INTEGER, N AS INTEGER

INPUT "N="; N

DIM A%(2 * N), B%(2 * N)

FOR I = 1 TO 2 * N

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

INPUT A(I)

NEXT I

B = A(1)

FOR I = 1 TO N

B(2 * I - 1) = A(2 * N - I + 1)

B(2 * I) = A(N - I + 1)

NEXT I

A(N) = B

FOR I = 1 TO 2 * N

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

NEXT I

END

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

Подсчитать количество элементов, равных заданному значению.

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

INPUT "N="; N

DIM A%(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

NEXT I

PRINT "K="; K;

END

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

Составить и вывести новый массив

с номерами элементов исходного массива, равных заданному значению.

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

INPUT "N="; N

DIM A%(N), B%(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) = 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

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

Составить и вывести новый массив со значениями

элементов исходного массива, не равных заданному значению.

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

INPUT "N="; N

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

FOR I = 1 TO N

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