Когда вы утром выходили из дома, по телевизору передали прогноз погоды на предстоящий день, а именно - id877334320210514 от helenawoy 14.05.2021 23:16

Question

Информатика: Когда вы утром выходили из дома, по телевизору передали прогноз погоды на предстоящий день, а именно температуру воздуха, скорость ветра, осадки. охарактеризуйте полученную вами информацию. a) объективная, неактуальная, полная b) понятная, субъективная, достоверная c) полная, актуальная, достоверная d) недостоверная, актуальная, полная

helenawoy · Accepted Answer

Dim A(100) As Integer, Odin As Boolean
Dim k As Integer , i As Integer
Randomize
For i = 1 To 100
A(i) = Int(Rnd*100) + 1 ' Заполняем массив случайными числами от 1 до 100
Print A(i) & CHR(9); ' Выводим начальный массив через табуляцию
Next i
Print "Повторяющиеся элементы"
For i = 1 To 100
For k = i+1 To 100
If A(i) = A(k) Then Print A(i) & CHR(9);
Next k
Next i
Print "Не повторяющиеся элементы"
For i = 1 To 100
Odin = True
For k = i+1 To 100
If A(i) = A(k) Then Odin = False
Next k
If Odin = True Then Print A(i) & CHR(9);
Next i
End

MOGZ ответил