Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

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



Читайте также:
  1. What static rope elements are tested? - Какие элементы статических веревок тестируют?
  2. Базовые оптические элементы
  3. Биогенные элементы. Органогенные элементы и их роль в живой клетке. Металлы жизни.
  4. Биометрические элементы идентификации
  5. Важнейшие элементы лечения обострения
  6. Валютная система, ее типы и элементы.
  7. Валютная система: сущность, виды, элементы

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

 

 


Дата добавления: 2015-07-11; просмотров: 93 | Нарушение авторских прав






mybiblioteka.su - 2015-2024 год. (0.005 сек.)