Imports System

                imports microsoft.visualbasic

Public Module Module1

    Public Sub Main()

    dim cherd as integer

                dim cowid (cherd) as integer

                dim cowyield(cherd) as double

                dim lessmilk(cherd) as integer

        dim tmilk as double

        dim herdavg as double

​

        Console.WriteLine("type the number of cows in your herd..:")

        cherd = console.readline()

        for a=1 to cherd

        console.writeline("type the cow ID..:")

        cowid(a)=console.readline()

        while cowid(a)<100 or cowid(a)>999

            console.writeline("wrong id, please type correct cow id...:")

            cowid(a)=console.readline()

        end while

            for d= 1 to a

            while cowid(a)=cowid(d)

            console.writeline("duplicate cow id, please type correct cow id..:")

            cowid(a)=console.readline()

            end while

        next d

        cowyield(a)=0

        lessmilk(a)=0

next a

    for d= 1 to 7

console.writeline("milk yield for the day" &d)

​

dim s1,s2

    for a = 1 to cherd

console.writeline("milk yield details of Cow ID"&cowid(a))

​

console.writeline("type the milk yield (litres) for session 1:")

s1=console.readline()

console.writeline("type the milk yield (litres) for session 2:")

s2=console.readline()

​

    if s1+s2<12 then

        lessmilk(a)=lessmilk(a)+1

    end if

next a

next d

​

tmilk=0

for a =1 to cherd

tmilk=math.round(tmilk+cowyield(a),0)

next a

herdavg=math.round(tmilk/cherd,1)

console.writeline("total weekly volume of milk:"&tmilk)

console.writeline("average weekly volume of milk" &herdavg)

​

dim cowed(a) = 0

​

for a =1 to cherd

console.writeline("cow ID:"& cowed(a)"total yield:"&cowyield(a) "average yield per week:" &round(cowyield(a)/7,1))

next a

​

dim maxcid, mincid as integer

dim min,max as double

maxcid=0

mincid=0

min=9999

max=0

for a =1 to cherd

if cowyield(a)>max then

max=cowyield(a) 

maxcid=cowed(a)

end if

if cowyield(a)<min then

min=cowyield(a)

mincid=cowed(a)

end if

next a

console.writeline("cow ID:" &maxcid& "has produced most milk" &max)

console.writeline("cow ID:"&mincid& "has produced least milk"&min)

​

for a = 1 to cherd

​

if lessmilk(a)=>4 then

console.writeline("cow ID:"&cowid(a)& "has produced less than 12 litres of milk for "&lessmilk(a)& "days in a week"")

​

​

end if

​

​

    End Sub

End Module