zadach10.BAS

{* Задача10 *}

REM basic

'
'

Разработать
' алгоритм решения в соответствии с заданием:


'

матрица D(10, 10),
' записать на место отрицательных элементов матрицы нули, а на место
' положительных ¾ единицы; вывести на печать нижнюю половину матрицы в
' общепринятом виде.




10 INPUT "Введите размер матрицы: ", n, m
30 i=n
40 k=m
50 Dim A(i,k)
60 For i=1 To n
70 For k=1 To m
80 A(i,k)=INT(RND*10)-5
90 PRINT A(i,k);
100 If A(i,k)>0 Then A(i,k)=1 Else A(i,k)=0
110 Next k
120 PRINT
130 Next i
140 For i=1 To n
150 For k=1 To i
160 PRINT A(i,k);
170 Next k
180 PRINT
190 Next i
200 End