Дан двумерный массив А размером 3*3, заполненный с клавиатуры. Требуется умножить...

Question

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

Answer 1

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<br>a(i,j)• 7
end if
next j
next i
print tab;a(i,j);
на языке бейсик))

Comments

спасибо, но мне на паскале надо))

---

я в школе изучала бейсик,паскаль я не знаю