заданы 270 целых чисел. посчитать количество чисел больше 10 и количество чисел меньше -5

Question

заданы 270 целых чисел. посчитать количество чисел больше 10 и количество чисел меньше -5

Анастасия Шеллер Ученик (85), на голосовании 4 года назад

заданы 270 целых чисел. посчитать количество чисел больше 10 и количество чисел меньше -5.
Помогите решить на языке бейсик и си)

Answer 1

Юрий Моисеев Оракул (83936) 4 года назад

На Бейсике примерно так
k1=0
k2=0
for i = 1 to 270
print "Число";i
input x
if x > 10 then k1=k1+1
if x <- 5 then k2=k2+1
next i
print "Больше 10";k1
print "Меньше -5";k2

Анастасия ШеллерУченик (85) 4 года назад

а через вот такое решение
Dim a(270) integer
m=a(10)
for i=1 to 270
if a(i)>10 Then
m=a(i)
else if a(i)< - 5
next
print m;
end.

правильно или где то ошибка?

Юрий Моисеев Оракул (83936) Это все сплошная ошибка