На бейсике Dim A(20) As Integer, k As Integer, S As Integer, i As Integer Randomize For i = 1 To 20 A(i) = Int(Rnd(1)*45) - 15 ' Заполняем массив случайными числами от -15 до 30 Next i k = 0: S = 0 For i = 1 To 20 If A(i) <> 0 Then k = k + 1 ' Нашли ненулевой элемент - прибавляем счетчик If A(i) > 0 Then S = S + A(i) ' Нашли положительный элемент - складываем Next i Print "Количество ненулевых элементов " & k Print "Сумма положительных элементов " & S End
Basic: DIM tetradCount as INTEGER, oblojCount as INTEGER, price1 AS INTEGER, price2 AS INTEGER CLS INPUT "Введите кол-во тетрадей:"; tetradCount INPUT "Введите кол-во обложек:"; oblojCount
находиться во время перемены в компьютерном классе без разрешения старшего (преподавателя); включать без разрешения оборудование; трогать разъемы соединительных кабелей и проводов(возможно поражение электрическим током); прикасаться к питающим проводам и устройствам заземления; прикасаться к экрану и к тыльной стороне монитора, клавиатуры; включать и выключать аппаратуру без указания преподавателя; работать в верхней одежде и влажными руками; прыгать, бегать (пылить); класть диски, книги, тетради и другие предметы на монитор и клавиатуру; устанавливать или копировать программы с дискет, дисков и флеш-носителей на компьютер, предварительно не проверив их антивирусом; При появлении запаха гари немедленно прекратите работу, выключите аппаратуру и сообщите об этом преподавателю.
Во время работы:
строго выполняйте все указанные выше правила, а также текущие указания преподавателя; следите за исправностью аппаратуры и немедленно прекращайте работу при появлении необычного звука или самопроизвольного отключения аппаратуры; легко и быстро нажимайте на клавиши, не допуская резких ударов; не пользуйтесь клавиатурой и мышью, если не включен компьютер; работайте на клавиатуре чистыми руками; никогда не пытайтесь самостоятельно устранить неисправность в работе аппаратуры; не вставайте со своих рабочих мест, когда в кабинет входят посетители.
Dim A(20) As Integer, k As Integer, S As Integer, i As Integer
Randomize
For i = 1 To 20
A(i) = Int(Rnd(1)*45) - 15 ' Заполняем массив случайными числами от -15 до 30
Next i
k = 0: S = 0
For i = 1 To 20
If A(i) <> 0 Then k = k + 1 ' Нашли ненулевой элемент - прибавляем счетчик
If A(i) > 0 Then S = S + A(i) ' Нашли положительный элемент - складываем
Next i
Print "Количество ненулевых элементов " & k
Print "Сумма положительных элементов " & S
End