РГР и Лабы разных вариантов (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






Случайные файлы

Файл
164578.rtf
180437.rtf
160512.rtf
169674.rtf
22508.rtf




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.