Нужна в переводе программ с языка pascal в vba 1)в целочисленной последовательности есть нулевые элементы. создать массив из номеров этих элементов. a, b : array [1..1000] of integer; n, m, i : integer; begin read (n); for i : = 1 to n do read (a[i]); m : = 0; for i : = 1 to n do if a[i] = 0 then begin m : = m + 1; b[m] : = i; end; for i : = 1 to m do write (b[i], ' '); end. 2)элементарные операции с матрицами: (a^2+e)*6, а-произвольная матрица, е-единичная матрица

262

433

Посмотреть ответы 2

Ответы на вопрос:

dymomc

Информатика

4,5(17 оценок)

Sub num1() s = 0 n = cint(inputbox("n =")) range(cells(1, 1), cells(2 * (n + 2), n + redim a(n - 1) redim b(n - 1) k = 1 cells(k, 1).value = "a" cells(k + 2, 1).value = "b" k = k + 1 m = -1 for i = lbound(a, 1) to ubound(a, 1) a(i) = round(rnd * 10) - 5 cells(k, 1 + i).value = a(i) if a(i) = 0 then m = m + 1 b(m) = i cells(k + 2, m + 1).value = b(m) end if next end sub sub num2() n = 16 redim a(n, n), c(n, n), e(n, n) range(cells(1, 1), cells(2 * (n + 2), n + k = 1 cells(k, 1).value = "init" k = k + 1 cells(k + n + 1, 1).value = "result" for i = 0 to n for j = 0 to n a(i, j) = round(rnd * 10) cells(k + i, j + 1).value = a(i, j) if i = j then e(i, j) = 1 else e(i, j) = 0 c(i, j) = 0 for r = 0 to n c(i, j) = c(i, j) + a(i, r) * a(r, j) next x = 6 * (c(i, j) + e(i, j)) cells(k + n + 2 + i, j + 1).value = x next next end sub

dmutallapova

Информатика

4,5(52 оценок)

формула: a + b + c + a x b + b x c

выражение l - h + d : b x k - t : a x 6

1) действие: d + b

2) k - t + (d+b)

3) t - d + b *‰

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.