begin n1 := 0; n2 := 0; {предполагается, что нумерация домов начинается с 1} writeln('Вводите количество жителей в порядке возрастания номеров домов'); writeln('Окончание ввода - по отрицательному значению'); i := 1; repeat read(k); if k > 0 then begin if i mod 2 = 0 then n2 := n2 + k else n1 := n1 + k; i := i + 1 end until k < 0; write(#13#10, 'Большее количество людей проживает на '); if n1 > n2 then writeln('левой стороне улицы.') else writeln('правой стороне улицы.') end.
Тестовое решение:
Вводите количество жителей в порядке возрастания номеров домов Окончание ввода - по отрицательному значению 13 56 25 31 98 35 72 64 -1
Большее количество людей проживает на левой стороне улицы.
var a, c: boolean; b, b1: integer; begin readln(b); readln(b1); if (b > b1) then a := true else if (b1 > b) then a := false; while (true) do begin readln(b1); if (0 in [b, b1]) then break; if a then begin if (b < b1) then c := true; end else if (b > b1) then c := true; b := b1; end; if c then writeln('Случайная') else if (a) then writeln('Невозрастающая') else writeln('Неубывающая'); end.
Само собой, должно быть минимум 2 числа в последовательности:)
