1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | CLS
DIM a(1 TO 11) AS SINGLE
DIM i AS INTEGER
FOR i=1 TO 11
PRINT "a(";i;")=";
INPUT a(i)
NEXT i
CLS
PRINT "Vtorie elementi massiva"
FOR i=2 TO 11 STEP 2
PRINT "a(";i;")=";a(i)
NEXT i
n=0
FOR i=2 TO 11 STEP 2
IF a(i)=4 THEN n=n+1
NEXT i
PRINT "Количество эл-ов, равных 4. n=";n
|
Тестирование выполнено в программе QB64 ( Скачать )
Похожие записи/страницы:
- Даны вещественные массивы A(7), B(8), C(5). Составить программу с использованием подпрограммы для вычисления…
- Даны натуральное число n и последовательность действительных чисел a1, a2,...,an. Найти количество элементов…
- Дан массив из 18 чисел.Найти количество элементов=3,среди вторых элементов массива- QBasic(Бейсик)
- Дан массив A(N), состоящий из случайных чисел от -2 до 2. Вывести сам массив и количество элементов, равных 0.-…
- Дан массив чисел. Для неповторяющихся элементов, найти их среднее арифметическое значение - QBasic(Бейсик)
- Дан массив из 12 чисел.Найти сумму чисел массива,начиная с первого числа большего 51- QBasic(Бейсик)