Дан массив v1,…,v10. Если среди первых пяти элементов есть отрицательные числа то заменить элементы с шестого по 10 на среднее арифметическое всего ряда- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
CLS
RANDOMIZE TIMER
DIM v(10)
k = 0
s = 0
FOR i = 1 TO 10
v(i) = INT(50 * RND(1) - 15)
IF i >= 1 AND i <= 5 THEN GOTO 1 ELSE GOTO 2
1 IF v(i) < 0 THEN k = k + 1
2 PRINT v(i);
NEXT i
IF k >= 1 THEN GOTO 3 ELSE GOTO 4
3 FOR i = 1 TO 10
s = s + v(i)
NEXT i
sred = s / i
sred = (INT(sred * 10)) / 10
PRINT
FOR i = 1 TO 10
v(i) = sred
PRINT v(i);
NEXT i
4 END

Тестирование выполнено в программе QB64 ( Скачать )

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

Leave a Comment