{* Задача156 *}

REM basic

' Даны 3 массива. если элемент третьего массива меньше элементов первого и второго, уменьшить его в двое. В преобразованном массиве найти сумму элементов с 1-го по минимальный включительно.


CLS
RANDOMIZE TIMER
n = 10
Dim a(n), b(n), c(n)
For i = 1 To n: a(i) = FIX(RND * 100): Next
For i = 1 To n: b(i) = FIX(RND * 100): Next
For i = 1 To n: c(i) = FIX(RND * 100): Next
PRINT "massiv a"
For i = 1 To n
    PRINT a(i);
Next
PRINT
PRINT "massiv b"
For i = 1 To n
    PRINT b(i);
Next
PRINT
PRINT "massiv c"
For i = 1 To n
    PRINT c(i);
Next
PRINT
For i = 1 To n
    If c(i) < a(i) And c(i) < b(i) Then c(i) = c(i) / 2
Next
min = 1E38
For i = 1 To n
    If c(i) < min Then min = c(i): k = i
Next
For i = 1 To k
    s = s + c(i)
Next
PRINT "New massiv c"
For i = 1 To n
    PRINT c(i);
Next
PRINT
PRINT "s ="; s
End