Question

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

Answer 1

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