{* Задача31 *}

REM basic

' Дана матрица размерности m на n. Получить одномерный массив, состоящий из элементов, делимых на пять


CLS
PRINT "Введите число строк"
INPUT m 
PRINT "Введите число столбцов"
INPUT n 
Dim a(m,n)
For i=1 To m
For j=1 To n
PRINT "Введите a("; i; j; ")"
INPUT a(i, j)
Next j
Next i
PRINT "Исходная матрица"
For i=1 To m
For j=1 To n
PRINT a(i, j);
Next j
PRINT
Next i
PRINT
k=0
For i=1 To m
For j=1 To n
If a(i,j) Mod 5=0 Then
k =k+1
b(k)=a(i,j)
End If
Next j
Next i
PRINT "Одномерный массив, состоящий из элементов делимых на пять"
For i=1 To k
PRINT b(i)
Next i
End