Вопрос по информатике:
Помогите с заданием. Наберите на Qbasic.
1. Найти сумму элементов массива, кратных числу К.
2. Найти сумму элементов массива с k1-го и k2-ой, где k1 и k2 вводятся с клавиатуры.
3. Найти минимальный элемент массива и его номер.
Нужно очень срочно!
- 22.10.2015 00:04
- Информатика
- remove_red_eye 5825
- thumb_up 45
Ответы и объяснения 1
Dim a(100)
input"введите число k";k
for i=1 to 100
a(i)=int(RND(1)*100):print a(i);
if a(i) mod k=0 then s=s+a(i)
next
print "Сумма=";s
end
======================
dim a(1000)
input k1
input k2
for i=1 to 1000
a(i)=RND(1)
next
for i=k1 to k2
s=s+a(i)
next
print s
end
=======================
dim a(1000)
for i=1 to 1000
a(i)=RND(1)
print a(i)
next
min=9999999
for i=1 to 1000
if a(i)
print min, n
end
- 22.10.2015 09:09
- thumb_up 29
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.