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

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

Ответ:
kirkanobotan
kirkanobotan
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
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?