Помогите решить.

Написать программу для решения задач на языке Basic. Вывести на печать номера всех положительных элементов массива А (20).

Question

Информатика

Замеддин

1 декабря, 18:43

Помогите решить.

Написать программу для решения задач на языке Basic. Вывести на печать номера всех положительных элементов массива А (20).

+1

Ответы (1)

Знаете ответ на вопрос?

Анчапар · Answer 1

Dim a (1 to 20) as Integer

Dim i as Integer

Randomize Timer

For i=1 To 20

a (i) = Int (50*Rnd) - 25

Print a (i) ;

Next i

Print

For i=1 To 20

If a (i) >0 Then Print i;

Next i

Print

Помогите решить.Написать программу для решения задач на языке Basic. Вывести на печать номера всех положительных элементов массива А (20).

Помогите решить.

Написать программу для решения задач на языке Basic. Вывести на печать номера всех положительных элементов массива А (20).