{* Задача25 *}

REM basic

' Вычислить суммы положительных элементов массивов A(N), B(M), C(K), при N<= 60, M<= 60, K<= 70;
' Переписать отрицательные элементы массивов B(M) и C(K) в массив Z подряд.


10 INPUT "Введите количество элементов массива A: ", n
30 INPUT "Введите количество элементов массива B: ", m
40 INPUT "Введите количество элементов массива C: ", k
50 PRINT "Введите номера массивов, отрицательные элементы которых"
60 INPUT "требуется переписать в отдельный массив: ", N1, N2, N3
70 z=0
80 Num=1
90 PRINT "Массив A"
100 Dim A(n)
110 If n>m Then j=n Else j=m
120 If k>j Then j=k
130 Dim X(j)
140 For i=1 To n
150 A(i)=INT(RND*100)-INT((n-1)/2)
160 PRINT A(i);
170 X(i)=A(i)
180 Next i
190 l=n
200 Dim D(n+m+k)
210 GoSub 1000
220 PRINT
230 PRINT "Сумма положительных элементов массива A: "; s
240 Dim B(m)
250 PRINT "Массив B"
260 For i=1 To m
270 B(i)=INT(RND*100)-INT((m-1)/2)
280 PRINT B(i);
290 X(i)=B(i)
300 Next i
310 l=m
320 GoSub 1000
330 PRINT
340 PRINT "Сумма положительных элементов массива B: "; s
350 Dim C(k)
360 PRINT "Массив C"
370 For i=1 To k
380 C(i)=INT(RND*100)-INT((k-1)/2)
390 PRINT C(i);
400 X(i)=C(i)
410 Next i
420 l=k
430 GoSub 1000
440 PRINT
450 PRINT "Сумма положительных элементов массива C: "; s
460 PRINT "Результирующий массив Z"
470 For i=1 To z
480 PRINT D(i);
490 Next i
500 PRINT
510 PRINT "Количество элементов массива Z: "; z
520 End