Подскажите как решить. Написать программу для решения задач на языке Basic. Вывести на печать номера всех положительных элементов массива А(20).
173
ОТВЕТЫ
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)gt;0 Then Print i;
Next i
Print
Dim i as Integer
Randomize Timer
For i=1 To 20
a(i)=Int(50*Rnd)-25
Print a(i);
Next i
For i=1 To 20
If a(i)gt;0 Then Print i;
Next i
3
Отв. дан
Nilalanim
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Delalas
какая основа у предложения . На поле , за ...
2018-09-25 00:00:00
Лиана
Когда пришла весна, наступили теплые дни. Там, где раньше ...
2018-09-25 00:00:00
Adrienius
Подскажите как, пожалуйста. Задание: Составить программу вычисления значений функции ...
2018-09-25 00:00:00
Thoril