Составить 2 блок-схемы: 1. private sub command1_click() dim i as integer, j as integer, l as integer, m as integer, b as integer, c as integer, u as integer dim r6() as single, p as integer m = inputbox("количство строк матрицы=") l = inputbox("количество столбцов матрицы=") redim r6(m, l) for i = 1 to m for j = 1 to l r6(i, j) = inputbox("введите r6(" & i & "," & j & ")=") next next p = r6(2, 2) for i = 2 to m step 2 for j = 2 to l step 2 if p > r6(i, j) then p = r6(i, j) b = i c = j u = p end if next next r6(1, 2) = u msgbox ("минимальный элемент с четным индексом r6(" & b & "," & c & ")=" & u) end sub 2. private sub command1_click() dim i as integer, j as integer, m as integer dim w() as single, flag as boolean m = inputbox("введите количество строк") redim w(1 to m, 1 to m) for i = 1 to m for j = 1 to m w(i, j) = inputbox("w(" & i & "," & j & ")=") print w(i, j); next print next flag = false print end sub

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

• 

  ПрофессорЧерепашка

  23.01.2021 19:36
  Формат входных данных: дано целое число a и натуральное число...
• 

  kasper121314

  03.07.2020 05:51
  Что с информационной точки зрения, является целью и почему?...
• 

  saltanatkeneso

  31.12.2022 12:22
  35 ! ! нужно сделать обход графа вглубь и вширь входная информация...
• 

  диас161

  25.02.2022 00:58
  a& c & b& c = a& b & c доказать равенства...
• 

  Костя10987654321

  12.11.2021 13:12
  Придумать формулу в exel для решения...
• 

  незнайка1166

  08.03.2022 10:47
  1**. Напиши на языке программирования следующие математиче-...
• 

  123gordeev

  19.07.2021 10:34
  С цикла for вычислите значение выражения 2*3 + 3*4 + ... + 39*40...
• 

  ibondarenk2013

  09.08.2021 11:54
  Представить числа в нормализованном формате 1) 1564 (в 10 сс)...
• 

  nastosetrova1

  13.03.2020 17:44
  Вопрос не по школьной программе. У меня завис экран ноутбука,...
• 

  5676116788

  07.04.2023 02:15
  составить алгоритм для робота...