1 2 3 4 5 6 7 8 9 10 11 12 13 14 | DIM B(5, 5) AS INTEGER ' Заполним массив и на экран его CLS RANDOMIZE TIMER FOR iy = 1 TO 5: FOR ix = 1 TO 5 IF ix > iy THEN COLOR 10 ELSE COLOR 7 B(ix, iy) = RND * 101 PRINT B(ix, iy); NEXT: PRINT : NEXT ' Ищем сумму эл-в выше главной диагонали FOR iy = 1 TO 5: FOR ix = 1 TO 5 IF ix > iy THEN S = S + B(ix, iy) NEXT: NEXT PRINT "Summa elementov ="; S |
Тестирование выполнено в программе QB64 ( Скачать )