Напишите программу, которая заполняет квадратную матрицу случайными числами в интервале...

Question

Напишите программу, которая заполняет квадратную матрицу случайными числами в интервале [10,99], а затем записывает нули во все элементы выше главной диагонали. Алгоритм не должен изменяться при изменении размеров матрицы

Answer 1

Vb

dim matt() as integer
dim x,y as integer
x=5
y=5
redim matt(x,y)
randomize
for a as integer = 0 to x
for b as integer = 0 to y
matt(x,y)= (rnd()*88)+11
next
next

dim i,z as integer
do
matt(i,z)=0
i+=1
z+=1
loop until (i=x and z=y)