В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
tim2003np0acpp
tim2003np0acpp
15.05.2020 10:37 •  Информатика

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

Ответ:
Валерияжеле
Валерияжеле
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
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?