Блог для маленьких школьников и их родителей
ШколаЛа

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

Автор:
Предмет: Информатика
Уровень: 5 - 9 класс

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

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

Ответов к вопросу: 1
  • akhmetzhanyzy09
    19.07.2024 | 16:23

    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

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.