1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | CLS
n = 5
DIM a(n)
FOR i = 1 TO n
PRINT "vvedite vklad"; i
INPUT a(i)
NEXT
PRINT "vklady"
FOR i = 1 TO n
PRINT a(i)
NEXT
FOR j = 1 TO 5: FOR i = 1 TO n
a(i) = a(i) + a(i) * 0.03
NEXT: NEXT
PRINT "new vklady"
FOR i = 1 TO n
PRINT a(i)
NEXT
|
Тестирование выполнено в программе QB64 ( Скачать )
Похожие записи/страницы:
- Дан одномерный массив F1 ,... F20 Если модуль суммы положительных элементов больше модуля суммы отрицательных…
- Написать программу, нахождения суммы функции Z и Z1 для всех пар чисел (х,у), вводимых с клавиатуры. в том…
- Вычислить произведение P=S1*S2 суммы S1 элементов массива x[i]-тое и суммы S2 элементов массива y[i]-тое,…
- Дан массив X из 10 чисел 3, 5, 1, -2, 3, -4, 5, 8, 4, -1. Найти сумму и количество нечетных элементов массива и…
- Дан одномерный массив F1 ,... F20 Если модуль суммы положительных элементов больше модуля суммы отрицательных…
- Дан массив R(N);N=20,вычислить суммы положительных S1 и отрицательных элементов S2,если |S1|>|S2|,определить…