задача по програмированию в Visual Basic

Question

Определить средний вес стальной заготовки из числа заготовок, которые перевозятся автотранспортным предприятием из места изготовления к месту их обработки. Ввод и обработку данных осуществлять до тех пор, пока не поступит заготовка весом 285кг. 
 
 Зарание спасибо!

Denis Tsok · Accepted Answer

Module Module1 
 Sub Main() 
 Dim massa, sum, mid As Single 
 Dim count As Integer 
 sum = count = 0 
 mid = 1 
 Do While massa <> 285 
 Console.Write("Введите груз: ") 
 massa = Console.ReadLine() 
 count += 1 
 sum += massa 
 Loop 
 mid = sum / count 
 Console.WriteLine("Средний вес = {0}", mid) 
 Console.Read() 
 End Sub 
End Module

Ас- Строй · Answer

этот код наверное 
Module Module1 
 Sub Main() 
 Dim massa, sum, mid As Single 
 Dim count As Integer 
 sum = count = 0 
 mid = 1 
 Do While massa <> 285 
 Console.Write("Введите груз: ") 
 massa = Console.ReadLine() 
 count += 1 
 sum += massa 
 Loop 
 mid = sum / count 
 Console.WriteLine("Средний вес = {0}", mid) 
 Console.Read() 
 End Sub 
End Module