Question

Известно число жителей, проживающих в каждом доме улицы. Нумерация домов проведена подряд. Дома с нечетными номерами расположены на одной стороне улицы, с четными — на другой. На какой стороне улицы проживает больше жителей? Нужно программный код!!! Visual Basic.NET

Answer 1

Uses crt;
var a:array [1..1000] of integer;
    n,i,k,p:integer;
begin
     writeln('Введите количество домов ');
     readln(n);
     writeln('Вводите через пробел число жителей каждого дома ');
     for i:=1 to n do
         begin
         read(a[i]);
         if i mod 2=1 then k:=k+a[i]
         else p:=p+a[i];
         end;
     writeln;
     if k>p then writeln ('В нечетных домах жителей больше ')
     else writeln('В четных домах жителей больше ');
end.
как-то так))

Answer 2

Dim oddTotal As Integer = 0 Dim evenTotal As Integer = 0

For i As Integer = 1 To numberOfHouses Step 2 oddTotal += numberOfResidentsInHouse(i) Next

For i As Integer = 2 To numberOfHouses Step 2 evenTotal += numberOfResidentsInHouse(i) Next

If oddTotal > evenTotal Then Console.WriteLine("Больше жителей проживает на стороне улицы с нечетными номерами домов.") ElseIf evenTotal > oddTotal Then Console.WriteLine("Больше жителей проживает на стороне улицы с четными номерами домов.") Else Console.WriteLine("Жители проживают на обеих сторонах улицы в одинаковом количестве.") End If