На Pascal

[Юрий Бадюн]

На Pascal

Разработать алгоритм, определяющий произведение ненулевых элементов каждого столбца матрицы В(5,12). Полученные значения вывести, указав номер столбцов.
и создать блок схему!!!

 

[Vladimir_S]

Разработать алгоритм, определяющий произведение ненулевых элементов каждого столбца матрицы В(5,12). Полученные значения вывести, указав номер столбцов.
и создать блок схему!!!

Ага, сейчас прям наперегонки бросимся выполнять хамские распоряжения!
Ошиблись адресом, сударь - здесь прислуги нет.
Бывайте здоровы.

 

[Юрий Бадюн]

Извиняюсь, за безтактность, помогите пожалуйста)))

 

[radiotexnik]

ну если так лови

CLS
RANDOMIZE TIMER
ny = 5: nx = 12
DIM b(ny, nx), c(nx)
FOR y = 1 TO ny: FOR x = 1 TO nx
        b(y, x) = FIX(RND * 100)
NEXT: NEXT
FOR x = 1 TO nx
    p = 1
    FOR y = 1 TO ny
        IF b(y, x) <> 0 THEN p = p * b(y, x)
    NEXT
    c(x) = p
NEXT
FOR y = 1 TO ny
    FOR x = 1 TO nx
        PRINT b(y, x);
    NEXT
    PRINT
NEXT
FOR x = 1 TO nx
    PRINT "stolbec"; x, "prozvedinie"; c(x)
NEXT

 

[Vladimir_S]

ну если так лови

Э-э... а Вы уверены, что это Паскаль?

 

[radiotexnik]

ой ошибочка

 

[Vladimir_S]

ой ошибочка

А ничего. Ему и на Бэйсике надо.

 

[radiotexnik]

ну и отлично, не зря время потратил