Написать по алгоритму программу для определения значения переменной К

18.01.2011, 10:08. **Показов** 1073. **Ответов** 1

дан массив целых чисел {Xi}, i=1,2,3......N, N=10

Код

НАЧАЛО
ВВОД ЭЛЕМЕНТОВ МАССИВА Xi
НАЧАЛО ЦИКЛА ДЛЯ I=1 ДО N
ЧИТАТЬ элементы массива X[I]
КОНЕЦ ЦИКЛА;
K=0;
НАЧАЛО ЦИКЛА ДЛЯ I=1 ДО N
ЕСЛИ X[I]>0 ТО K:=K+1
КОНЕЦ ЦИКЛА;
ВЫВОД К
КОНЕЦ

@Fedogor · 18.01.2011, 16:48

Visual Basic

Sub prog()
On Error GoTo 999
Dim x(9) As Integer
k = 0
For i = 0 To 9
1
x(i) = InputBox("Введите элемент массива №" & i + 1)
If x(i) > 0 Then k = k + 1
Next i
MsgBox k
Exit Sub
999
MsgBox "Вводите только целые числа"
GoTo 1
End Sub

LordPlague
		1
	Написать по алгоритму программу для определения значения переменной К 18.01.2011, 10:08. Показов 1073. Ответов 1 Метки нет (Все метки) дан массив целых чисел {Xi}, i=1,2,3......N, N=10 Код НАЧАЛО ВВОД ЭЛЕМЕНТОВ МАССИВА Xi НАЧАЛО ЦИКЛА ДЛЯ I=1 ДО N ЧИТАТЬ элементы массива X[I] КОНЕЦ ЦИКЛА; K=0; НАЧАЛО ЦИКЛА ДЛЯ I=1 ДО N ЕСЛИ X[I]>0 ТО K:=K+1 КОНЕЦ ЦИКЛА; ВЫВОД К КОНЕЦ Написать по алгоритму программу для определения значения переменной К __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь

Опции темы

Написать по алгоритму программу для определения значения переменной К

Решение