02 семестр / Лабораторные работы / РГР и Лабы разных вариантов / лабы / Zadanie_6

Задание 6

Вариант 6

Программирование простых циклов.

Обработка одномерных массивов

Составить алгоритм и программу для выполнения предложенного задания по обработке одномерного массива X, состоящего из “N” элементов.

Постановка задачи

В массиве X(N) определить количество положительных элементов, стоящих на местах с нечётным индексом.

Блок-схема алгоритма решения задачи

начало

конец

ввод

N

X(i)>0

i/2<>1

i =1,N,1

k = 0

вывод

k

вывод

X(i)

ввод

X(i)

k = k + 1

i=1,N,1

Программный код

Dim X(1 to N) As Single, N As Integer< I As Integer< k As Integer

Private Sub Command1_Click()

N=val(InputBox(“ввод N”,”ввод”))

Randomize timer

For i = 1 to N

X(i)= - 9 + RND*18

X(i)= Round(X(i),0)

Print X(i),

Next i

k = 0

For i = 1 to N

if X(i)>0 AND i/2<>1 Then k = k + 1

Next i

Print “положительных элементов с нечётным индексом”;k

End Sub