1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | 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 ( Скачать )
Похожие записи/страницы:
- В двумерном массиве чисел все отрицательные элементы массива увеличить на среднее арифметическое значение…
- Дан массив чисел. Для неповторяющихся элементов, найти их среднее арифметическое значение - QBasic(Бейсик)
- Даны массивы Х1,..., Х10; У1,..., У15. Если Х среднее > У среднего, то заменить Уi < У среднего на 2.5, в…
- В массиве A(10) заменить отрицательные элементы нулями - Basic(Бейсик)
- Даны вещественные массивы A(7), B(8), C(5). Составить программу с использованием подпрограммы для вычисления…
- Дан массив L1...L20. Заменить элементы, стоящие после Lmin на серднее арифметическое всего ряда- QBasic(Бейсик)