Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
20051207маша
16.10.2021 00:12 •
Информатика
Дан массив b(n,n). найти сумму элементов больших 128
Показать ответ
Ответ:
математик218
26.06.2020 12:18
На Visual Basic
Dim B() As Integer, n As Integer, i As Integer, k As Integer, S As Integer
n = Text1.Text
ReDim B(n, n)
S = 0
For i = 1 To n
For k = 1 To n
If B(i, k) > 128 Then S = S + B(i, k)
Next k
Next i
Text2.Text = S
End Sub
0,0
(0 оценок)
Популярные вопросы: Информатика
Яумницакрасотка
21.03.2020 23:17
Ознакомьтесь с программой таблица умножения: var i,j: integer; begin for i: =1 to 10 do begin for j: =1 to 10 do write(i*j: 5); writeln; end; end. внесите изменения в программу: необходимо...
RomZo1
31.07.2022 15:36
Напишите программу ввода четырех символьных переменных ch1 ch2 ch3 ch4 определить количество нулей сркди этих символов замените символ 《прбел》на символ z...
CmauJLuk
26.05.2023 11:59
Сиспользованием интегрированной среды разработки lozarus...
kirichmix
20.01.2020 03:17
Напишите программу ввода четырех символеных переменных ch1 ch2 ch3 ch4 определить количество нулей сркди этих символов замените символ 《прбел》на символ z...
csczzz
02.03.2021 06:26
Контрольная работа по информатике 8 класс. Вариант 13 1. Найти значение числа MDXLIX. 2. Перевести в десятичную систему счисления 4445. 3. Перевести из восьмеричной системы счисления...
136есеп23бет
10.10.2021 13:25
выберите правильный ответ ! Отрицание дизъюнкции есть конъюнкция отрицаний. Отрицание конъюнкции есть дизъюнкция отрицаний. 1.закон согласия 2.закон однородности 3.закон убеждения...
berdyugin
05.02.2020 04:05
Из десяти одноклассников четверо умеют играть в шашки, шестеро - в шахматы. Двое ребят умеют играть и в шашки, и в шахматы. Расставь в фигурах 10 точек, закрась части фигур в таблице....
Alakey11
18.12.2020 08:08
Для чего необходимы дополнительные модули в программировании?(python, module math)...
AkaboS123
18.03.2022 02:53
Устройство выполняющее арифметические и логические операции и другими устройствами компьютера называется...
smolyarrrovav
18.03.2022 02:53
Дан массив из n элементов. вывести квадраты элементов с начетными номерами....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Dim B() As Integer, n As Integer, i As Integer, k As Integer, S As Integer
n = Text1.Text
ReDim B(n, n)
S = 0
For i = 1 To n
For k = 1 To n
If B(i, k) > 128 Then S = S + B(i, k)
Next k
Next i
Text2.Text = S
End Sub