Вычислить сумму и число элементов, находящихся под главной диагональю, переписать эти элементы в одномерный массив P(N(N-1)/2)- Basic(Бейсик)

disel

Обработать на компьютере квадратную матрицу В(N,N): вычислить сумму и число элементов, находящихся под главной диагональю, переписать эти элементы в одномерный массив P(N(N-1)/2). Размер исходной матрицы N ввести с клавиатуры. Вывести на экран монитора все результаты и исходную матрицу в общепринятом виде.

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
INPUT "vedite razmer matricy "; n
DIM b(n, n), p(n * (n - 1) / 2)
PRINT "vvedite elementy matricy B"
FOR i = 1 TO n
FOR j = 1 TO n
PRINT "b("; i; ","; j; ")=";
INPUT "", b(i, j)
NEXT
NEXT
PRINT "ishodnaya matrica"
FOR i = 1 TO n
FOR j = 1 TO n
PRINT b(i, j);
NEXT
PRINT
NEXT
FOR i = 1 TO n
FOR j = 1 TO n
IF i > j THEN k = k + 1: p(k) = b(i, j): s = s + b(i, j)
NEXT
NEXT
PRINT "novyj massiv"
FOR i = 1 TO k
PRINT p(i);
NEXT
PRINT
PRINT "summa="; s

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

Leave a Comment