Консультация № 143354
08.09.2008, 15:10
0.00 руб.
0 3 1
ЗДРАВСТВУЙТЕ!!в одномерном массиве вещественных чисел найти сумму всех элементов,равных третьему элементу массива???

Приложение:
что смог сделать-
CLS
INPUT "ВВЕДИТЕ РАЗМЕР МАССИВА"; N
DIM A (N)
FOR I = 1 TO N
INPUT A (I)
PRINT "A("I")="A(I)
NEXT I
PRINT
А ДАЛЬШЕ????

Обсуждение

Неизвестный
08.09.2008, 15:30
общий
это ответ
Здравствуйте, Андреев Павел Александрович!
А дальше примерно так:
dim summ
summ = 0
for i=1 to N
if a(i) = a(3) then summ = summ + a(i)
next i
print summ

Почитайте заодно:
http://ovt.edurm.ru/qbasic.htm#5
Неизвестный
08.09.2008, 15:53
общий
а summ и s это одно и тоже????
Неизвестный
09.09.2008, 18:59
общий
Здравствуйте Павел Николаевич!
Вы уже который раз спрашиваете summ и s одно и то же или нет? Ответ - нет, это не одно и тоже!
Если Вы объявите в первой строке... в модуле, форме или...
Option Explicit,
то Вам придётся обявлять все переменные с помощью Dim, Privat, Public... 'имя переменной' as 'тип переменной'
иначе по умолчанию все они будут типа Вариант (Variant), что не желательно...
Прочитать про это Вы можете в любой спрвке, хотя с первого раза (как мне) это будет не понятно, но по эксперементировав Вы всё поймёт, иначе может приввести к известным Вам проблеимам...
Форма ответа