Информатика сор 5 класс с 4 заданием
​

num = int(input())

sm = 0

while num != 0:

   sm += num

   num = int(input())

print(sm)

Объяснение.

На первой строке Вы просите пользователя ввести число.

На второй строке вы создаете новую переменную, которой присваиваете значение = 0(она нужна для подсчета суммы всех элементов)

На третье строке вы создаете цикл с условием, что введенное число не равно 0(в противном случае цикл не будет выполняться)

На четвертой строчке Вы добавляете к уже имеющейся сумме введенное число.

На пятой строчке Вы просите снова ввести число

Далее происходит возврат к началу цикла, идет проверка числа на равенство нуля, если снова не равно, то цикл повторяется, если равно, то цикл прекращается

На шестой строке Вы выводите полученный результат.

'VBScript

Sub Zadanie()
    ReDim C(5, 6)

    k_pos = 0
    mini = LBound(C, 1)
    minj = LBound(C, 2)
    For i = LBound(C, 1) To UBound(C, 1)
        For j = LBound(C, 2) To UBound(C, 2)
            C(i, j) = Round(Rnd * 10)

            if C(i, j) > 0 then k_pos = k_pos + 1

            if C(i, j) < C(mini, minj) then
                mini = i
                minj = j
            end if
        Next
    Next

    MsgBox "min C(" & mini & ", " & minj & ")=" & C(mini, minj) & vbNewLine & "c>0: " & k_pos
End Sub

Call Zadanie()