{* Задача80 *}

REM basic

' Дан массив A(N,N), состоящий из случайных чисел от 10 до 20. Вывести сам массив и среднее арифметическое элементов массива, находящихся в правом треугольнике.


CLS : INPUT "Vvedite N: ", N
Dim A(N, N) As Integer
 RANDOMIZE TIMER
 For iy = 1 To N
    For ix = 1 To N
    A(ix, iy) = RND * 10 + 10
    If iy > N - ix And ix > iy - 1 Then COLOR 10 Else COLOR 12
    PRINT A(ix, iy);
    Next: PRINT
 Next
 For iy = 1 To N
    For ix = 1 To N
       If iy > N - ix And ix > iy - 1 Then S = S + A(ix, iy): k = k + 1
 Next ix, iy
 PRINT "Sr arifm pravogo treugolnika :"; S / k
End