Написать программу q basic даны 2 одномерный числовых массива размерностью n . создать третий массив , элементы которого равны сумме элементов двух других . найти наименьший элемент массива

privetloll privetloll    2   15.06.2019 04:00    0

Ответы
antoshkaromanov antoshkaromanov  12.07.2020 13:01
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика