Дан массив из 10 чисел. Необходимо, если первые 4 отрицательные, то остальные 6 заменить на среднюю арифметического всех 10 элементов массивов — QBasic(Бейсик)

CLS
n=10
DIM a(n)
PRINT "Vvedite elementi massiva"
FOR i=1 TO n
INPUT a(i)
NEXT i
k=0
FOR i=1 TO 4
IF a(i)>0 THEN k=1
NEXT i
IF k=0 THEN 
sr=0
FOR i=1 TO n
sr=sr+a(i)
NEXT i
sr=sr/n
FOR i=5 TO n
a(i)=sr
NEXT i
PRINT "Massiv posle preobrazovaniy"
FOR i=1 TO n
PRINT a(i);
NEXT i
END IF

Результат работы программы

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

Leave a Comment