Сформировать третий массив из двух исходных по правилу

@Irinka_Chirkova · Регистрация: 04.12.2012

Даны два массива с числом элементов не более 30. Если соответствующие элементы исходных массивов принадлежат заданному интервалу, присвоить элементу третьего массива значение 1 , иначе – 0. Определить в каком из исходных массивов находится минимальный элемент, принадлежащий заданному интервалу и определить, сколько нулей и сколько единиц будет в полученном массиве.

@urbic · 05.12.2012, 17:16

QBasic/QuickBASIC

CLS
DO
INPUT "Vvedite n<30"; n
LOOP UNTIL n < 30
DIM a(1 TO n), b(1 TO n), c(1 TO n)
PRINT "Massiv A", "Massiv B"
FOR i = 1 TO n
a(i) = INT(RND * 100 - 50)
b(i) = INT(RND * 100 - 50)
NEXT i
INPUT "Vvedite interval p,q"; p, q
FOR i = 1 TO n
IF a(i) >= p AND a(i) <= q AND b(i) >= p AND b(i) <= q THEN
c(i) = 1
ELSE
c(i) = 0
END IF
NEXT i
FOR i = 1 TO n
PRINT a(i), b(i), c(i)
NEXT i
min = a(1)
FOR i = 1 TO n
IF a(i) >= p AND a(i) <= q AND b(i) >= p AND b(i) <= q THEN
IF a(i) <= min THEN min = a(i)
IF b(i) <= min THEN min = b(i)
END IF
NEXT i
FOR i = 1 TO n
IF c(i) = 1 THEN k1 = k1 + 1
IF c(i) = 0 THEN k0 = k0 + 1
NEXT i
PRINT "Minimal'noe="; min
PRINT "Kol-vo nulei="; k0
PRINT "Kol-vo edinic="; k1

@Irinka_Chirkova 0 / 0 / 0 Регистрация: 04.12.2012 Сообщений: 5
		1
	Сформировать третий массив из двух исходных по правилу 04.12.2012, 21:49. Показов 1066. Ответов 1 Метки нет (Все метки) Даны два массива с числом элементов не более 30. Если соответствующие элементы исходных массивов принадлежат заданному интервалу, присвоить элементу третьего массива значение 1 , иначе – 0. Определить в каком из исходных массивов находится минимальный элемент, принадлежащий заданному интервалу и определить, сколько нулей и сколько единиц будет в полученном массиве. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Сформировать третий массив из двух исходных по правилу

Решение