Найти среднее арифметическое положительных чисел, кратных 4 из 25-ти введённых- PureBasic(Бейсик)

Dim summa, n, otvet
summa=0
For i=1 to 25
  input "Введите число: ", n
  If n > 0 and n\4=0 Then
    summa = summa + n
  End if
Next i
otvet = summa / 25
Print otvet

Leave a Comment