Здравствуйте помогите закончить прогу в басике
CLS
Input "введите строку матрицы" ; n
input "Введите столбец матрицы"; m
option base1
Dim L(n,m) as integer
print "введите эл. матрицы"
for i=1 to n
for j=1 to m
input L(i,j)
next j
next i
for i=1to n
k=0
for j=1 to m
if L (i,j) mod 3 =0 then
_________?
_________?
end if
next j
___________?
next i
___________?
print "исходная матрица L"
???????????????????????????????????

А задание такое : обработать матрицу L(N,M)
найти для каждой строки элементы кратные трем подсчитать их количество[font=Arial]

Поскольку ты не написал, в чем работаешь, то проверялось в JB...

CLS
Input "введите число строк матрицы: " ; n
input "введите число столбцов матрицы: "; m

Dim L(n, m)

print "Введите элементы матрицы:"
for i = 1 to n
  for j = 1 to m
    input L(i, j)
  next j
next i

for i = 1 to n
  k = 0
  for j = 1 to m
    if L(i, j) mod 3 = 0 then
      print "Элемент (";i;",";j;") = "; L(i, j); " кратен 3"
      k = k + 1
    end if
  next j
  print "Строка №"; i; ": k = "; k
next i

print "Исходная матрица L = "
for i = 1 to n
  for j = 1 to m
    print L(i, j), " ";
  next j
  print
next i

Ух спасибо . Осталось проверить. А работаю я в QB

В программитровании я ламо . Просто в инсте лабы делаем , хорошо хоть есть куда обратится.
Спасибо вам!

Странно , он пишет типа NEXT WITHOUT FOR после print <<"Элемент (";i;",";j;") = "; L(i, j); " кратен 3">>

Всё в порядке.

Возможно, при копи/пасте сделал не нажал энтер после этой строки

Помогите люде пожалуйсто очень нужно..

1.Сформировать матрицу вида

1 2 2 2 2
3 1 2 2 2
3 3 1 2 2
3 3 3 1 2
3 3 3 3 1

2.Вычислить в этой матрице сумму нечетных элементов.
3.Вычислить количество четных элементов в каждой строке матрицы.
4.Вычислить максимумы в нечетных столбцах.
5.Вычислить произведение элементов в первой четверти.