Задача 68918 Задача 1 Составить блок- схему алгоритма...
Условие
Составить блок- схему алгоритма и программу на языке Basic.
Подсчитать количество элементов, не равных нулю в числовом массиве Z,
состоящем из N чисел. Вывести элементы на экран в обратном порядке
Решение
Sub Massiv()
Dim N As Integer, i As Integer, k As Integer
Dim Z() As Integer
' Массив Z() задан как динамический, пока мы не знаем N.
N = Input("Vvedite kol-vo elementov massiva Z")
' Ввод количества элементов массива
k = 0
ReDim Z(N) As Integer
' Задаем, что массив Z(N) имеет N элементов
For i = 1 To N
Z(i) = Input("Vvedite element massiva Z") ' Ввод элементов
If Z(i) <> 0 Then k = k + 1 ' Проверка элемента на 0
Next i
Print k & " elementov ne ravno 0" ' Вывод счетчика не нулей
For i = N To 1 Step -1
Print Z(i) & "; "; ' Вывод элементов массива в обратном порядке
Next i
End Sub