Дан одномерный элемент. Удалить все отрицательные элементы из массива

2. Дан двумерный массив. Вставить массив В перед столбцом, где все элементы неотрицательные.

Вариант 30.

1. Дан одномерный элемент. Вставить первый элемент, больше заданного значения С после первого четного элемента.

2. Дан двумерный массив. Удалить столбец, где все элементы не принадлежат интервалу [1,2].

Ответы на дополнительные задачи

Задача 4 (стр.10)

CLS

INPUT n

DIM A(n)

FOR i = 1 TO n

INPUT A(i)

NEXT i

FOR i = 1 TO n

IF A(i) >= 0 THEN PRINT A(i)

NEXT i

FOR i = 1 TO n

IF A(i) < 0 THEN PRINT A(i)

NEXT i

END

Задача 7 (стр.10)

CLS

INPUT n

DIM A(n, n)

FOR i = 1 TO n

FOR j = 1 TO n

INPUT A(i, j)

NEXT j, i

FOR i = 1 TO n

FOR j = 1 TO n

IF i < j THEN PRINT A(i, j)

NEXT j, i

END

Задача 5 (стр. 13)

CLS

INPUT n

FOR i = 1 TO n

INPUT A(i)

NEXT i

S1 = 0

FOR i = 1 TO n

IF A(i) > 0 THEN S1 = S1 + A(i)

NEXT i

S2 = 0

FOR i = 1 TO n

IF A(i) < 0 THEN S2 = S2 + A(i)

NEXT i

C = S1 / ABS(S2)

PRINT C

END

Задача 10 (стр.14)

CLS

DIM C(11)

FOR i = 1 TO 11

INPUT C(i)

NEXT i

K = 0

FOR i = 1 TO 11 - 1

IF C(i) MOD 3 = 0 AND C(i + 1) MOD 3 = 0 THEN K = K + 1

NEXT i

IF K <> 0 THEN

PRINT "такие пары есть, их количество="; K

ELSE

PRINT "таких пар нет"

END IF

END

Задача 15 (стр. 14)

CLS

INPUT n, m

DIM A(n), B(m)

FOR i = 1 TO n

INPUT A(i)

NEXT i

FOR i = 1 TO m

INPUT B(i)

NEXT i

S1 = 0

FOR i = 1 TO n

S1 = S1 + A(i)

NEXT i

S2 = 0

FOR i = 1 TO m

S2 = S2 + B(i)

NEXT i

IF S1 > S2 THEN SWAP A(3), B(5) ELSE SWAP B(4), A(6)

FOR i = 1 TO n

PRINT A(i)

NEXT i

FOR i = 1 TO m

PRINT B(i)

NEXT i

END

Задача 1 (стр.18)

CLS

INPUT n

DIM A(n)

FOR i = 1 TO n

INPUT A(i)

NEXT i

min = A(1)

FOR i = 2 TO n

IF A(i) < min THEN min = A(i)

NEXT i

K = 1

FOR i = 1 TO n

IF A(i) = min THEN K = K + 1

NEXT i

PRINT K

END