Дан массив натуральных чисел.Найти сумму элементов кратных к

@DedMa · Регистрация: 18.10.2016

Студворк — интернет-сервис помощи студентам

1.Дан массив натуральных чисел.Найти сумму элементов кратных к
2.Последовательность действительных чисел оканчивается нулем.Найти количество членов этой последовательности

@йот · 06.10.2017, 14:33

1. Объявите массив (DIM M(100) AS INTEGER)
2. Заполните его любым способов
3. И (в цикле) если элемент делится на k, то
добавьте его в сумму Summa = Summa + M(i)
4. Выйдя из цикла распечатайте результат
PRINT Summa

@goguandr · 06.10.2017, 17:37

1:

QBasic/QuickBASIC

DEFINT A-Z
CLS
DIM a(20)
RANDOMIZE TIMER
FOR i = 1 TO 20
    a(i) = INT(RND * 100)
    PRINT a(i)
NEXT i
 
INPUT "k = ", k
FOR i = 1 TO 20
    IF a(i) MOD k THEN  ELSE sum = sum + a(i)
NEXT i
PRINT "sum = "; sum

Добавлено через 2 минуты
2:

QBasic/QuickBASIC

CLS
DIM a(1000)
DO
    i = i + 1
    INPUT a(i)
LOOP WHILE a(i) <> 0
PRINT "kolichestvo elementov:"; i

Если 0 не считать за элемент, то в последней строке сделать i - 1.

@DedMa 0 / 0 / 0 Регистрация: 18.10.2016 Сообщений: 6
		1
	Дан массив натуральных чисел.Найти сумму элементов кратных к 06.10.2017, 13:41. Показов 1552. Ответов 2 Метки нет (Все метки) 1.Дан массив натуральных чисел.Найти сумму элементов кратных к 2.Последовательность действительных чисел оканчивается нулем.Найти количество членов этой последовательности 0

@йот 27 / 32 / 14 Регистрация: 08.09.2017 Сообщений: 448
	06.10.2017, 14:33	2
	1. Объявите массив (DIM M(100) AS INTEGER) 2. Заполните его любым способов 3. И (в цикле) если элемент делится на k, то добавьте его в сумму Summa = Summa + M(i) 4. Выйдя из цикла распечатайте результат PRINT Summa 0

Опции темы

Дан массив натуральных чисел.Найти сумму элементов кратных к

Решение