{* Задача19 *}

REM basic

'
'

Вычислить среднее арифметическое положительных элементов массивов А(N1), B(N2), C(N3), где

'

N1≤100

'

N2≤100

'

N3≤100

10 CLS : PRINT "МАССИВЫ A(N1),B(N2),C(N3)"
30 INPUT "N1,N2,N3?:", N1, N2, N3
40 If N1 > 100 Or N2 > 100 Or N3 > 100 Then 20
50 Dim A(N1), B(N2), C(N3)
60 N = N1: GoSub 100: PRINT "ai="; S / L: PRINT
70 N = N2: GoSub 100: PRINT "bi="; S / L: PRINT
80 N = N3: GoSub 100: PRINT "ci="; S / L
90 GoTo 190
100 S = 0: L = 0
110 For I = 1 To N
120 X = INT(RND * 10) - 5: PRINT Using "###"; X;
130 If X > 0 Then S = S + X: L = L + 1
140 If N = N1 Then A(I) = X: GoTo 170
150 If N = N2 Then B(I) = X: GoTo 170
160 If N = N3 Then C(I) = X
170 Next I: PRINT
180 PRINT "SA"; : Return
190 End