Сколько введено чисел больше 7 и сколько меньше

@aninil · Регистрация: 28.03.2013

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

Вводится последовательность не нулевых чисел , 0 - конец последовательности , сколько введено чисел больше 7 и сколько меньше

@Kvayzer · 10.06.2014, 12:54

Visual Basic

Dim N as long
Dim Sch1 as long
Dim Sch2 as long
N= тут вводите кол-во эл-ов в массиве
sch1=0
sch2=0
Dim A(N) as long
For i=0 to N-1 
Input A(i)
If A(i)>7 then 
sch1=sch1+1 
end if
If A(i)<7 then
sch2=sch2+1
end if
Next i

@aninil 0 / 0 / 0 Регистрация: 28.03.2013 Сообщений: 9
		1
	Сколько введено чисел больше 7 и сколько меньше 09.06.2014, 19:38. Показов 1496. Ответов 1 Метки нет (Все метки) Вводится последовательность не нулевых чисел , 0 - конец последовательности , сколько введено чисел больше 7 и сколько меньше 0

Опции темы

Сколько введено чисел больше 7 и сколько меньше

Решение