Написать программу Q Basic Даны 2 одномерный числовых массива размерностью N . Создать третий массив , элементы которого равны сумме элементов двух других . Найти наименьший элемент массива

Написать программу Q Basic Даны 2 одномерный числовых массива размерностью N . Создать третий массив , элементы которого равны сумме элементов двух других . Найти наименьший элемент массива
Гость
Ответ(ы) на вопрос:
Гость
CLS RESTORE N = 14 DIM M1(14), M2(14), M12(14) DATA 2,3,4,5,6,3,4,-8,7,3,-44,55,2,3 DATA 12,43,4,45,6,23,4,8,7,3,4,-5,2,53 FOR i = 1 TO N READ M1(i) PRINT M1(i), NEXT i PRINT "-----------------------------------------------------------" FOR i = 1 TO N READ M2(i) PRINT M2(i), NEXT i PRINT"======================================================" k = 1 mim = M1(k) + M2(k) FOR i = 1 TO N M12(i) = M1(i) + M2(i) PRINT M12(i), IF M12(i) < min THEN min = M12(i) k = i END IF NEXT i PRINT"=======================================================" PRINT "N="; k, min
Не нашли ответ?
Ответить на вопрос
Похожие вопросы