Найти среднее арифметическое положительных элементов массива A(N,M)- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
CLS
INPUT "VVEDITE ZNACHENIE N: ", N
INPUT "VVEDITE ZNACHENIE M: ", M
DIM A(N, M)
PRINT "MASSIV: "
FOR I = 1 TO N
    FOR J = 1 TO M
        PRINT "A("; I; ","; J; ") = ";
        INPUT "", A(I, J)
        IF A(I, J) > 0 THEN SUM = SUM + A(I, J): K = K + 1
    NEXT
NEXT
PRINT "SREDNEE ARIFM. = "; SUM / K

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

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

Leave a Comment