Нужно создать программу в visual basic , она должна вычислить среднее арифметическое введенных чисел ,написать программу, которая вводит с клавиатуры n вещественных чисел и вычисляет их среднее арифметическое. после того как среднее арифметическое будет найдено программа должна начаться с начала , так же нужно что бы в числе было не больше двух чисел после запятой

Sub average(byval n)  s = ""  sum = 0  n = round(n)  for i = 1 to n      a = inputbox("введите число №  " + str(i))      a = round(a * 100) / 100      s = s + str(a)      if i < > n then        s = s + ", "      end if      sum = sum + a  next i  msgbox "введённые числа " + s  msgbox "среднее значение " + str(sum / n)end sub sub test()m1:   n = inputbox("введите  n; 0 - закончить ")  if (n = 0) or (n = "") then    end  end if      call average(n)goto m1: end sub

алгоритм-это организованная последовательность действий.

свойства алгоритма: дискретность, , массовость, детерминированность, конечность.

алгоритм:

1)взять линейку

2)найти длинный всех сторон

3)сложить все три строны треугольника

4)записать ответ

(извиняюсь если алгоритм не правильно написан, с не дружу)