Дан двумерный массив А размером 3*3, заполненный с клавиатуры. Требуется умножить элементы этого массива на 4, если А (1,1) >0, или на 7, если A (1,1) <0

Dim a (1 to 3,1 to 3) as integer, i, j as integer

randomize

for i = 1 to 3

for j = 1 to 3

a (i, j) = rnd•100

print tab; a (i, j);

next j

print

next i

for i = 1 to 3

for j = 1 to 3

if a (1,1) >0 then

a (i, j) •4

end if

next j

next i

if a (1,1) <0 then

a (i, j) • 7

end if

next j

next i

print tab; a (i, j);

на языке бейсик))