В массиве X(n, m) определить сумму элементов выше неглавной диагонали — Basic(Бейсик)

disel

Среди них определить минимальный положительный элемент и его координаты. Если все элементы отрицательные — вывести на экран дисплея соответствующее сообщение

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
INPUT n
PRINT min
DIM a(n, n)
FOR i = 1 TO n
FOR j = 1 TO n
INPUT a(i, j)
NEXT
NEXT
FOR i = 1 TO n
FOR j = 1 TO n
PRINT a(i, j); " ";
NEXT
PRINT
NEXT
FOR i = 1 TO n
FOR j = 1 TO n
IF i + j < n + 1 THEN sum = sum + a(i, j): IF a(i, j) > 0 AND a(i, j) < min THEN min = a(i, j): imin = i: jmin = j
NEXT
NEXT
PRINT "summa= "; sum
IF min = 1E+38 THEN PRINT "polojitelnyh net" ELSE PRINT "min="; min; "i="; imin; "j="; jmin

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

Leave a Comment