Дан массив Cij, i=1,2,3,4,5, j=1,2,3,4,5. Найти Zij = {Cij,если С>0 ; 0, если Cij<=0- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
CLS
RANDOMIZE TIMER
n = 5
DIM c(n, n), z(n, n)
FOR i = 1 TO n
    FOR j = 1 TO n
        c(i, j) = FIX(RND * 20) - 10
    NEXT
NEXT
FOR i = 1 TO n
    FOR j = 1 TO n
        IF c(i, j) > 0 THEN z(i, j) = c(i, j) ELSE z(i, j) = 0
    NEXT
NEXT
OPEN "data.dat" FOR OUTPUT AS #1
PRINT #1, "massiv c"
FOR i = 1 TO n
    FOR j = 1 TO n
        PRINT #1, c(i, j);
    NEXT
    PRINT #1,
NEXT
PRINT #1, "massiv z"
FOR i = 1 TO n
    FOR j = 1 TO n
        PRINT #1, z(i, j);
    NEXT
    PRINT #1,
NEXT
CLOSE #1

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment