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
Большее количество людей проживает на левой стороне улицы.
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
Большее количество людей проживает на левой стороне улицы.
begin
var a:=ArrRandom(50,-22,15); a.Println; Println;
13.To(33).Select(i->a[i]).Print
end.
Тестовое решение:
4 -21 6 -12 -5 -16 14 -4 -7 -13 5 -4 10 -7 -9 7 13 4 -3 -9 -11 -10 15 -16 15 7 10 0 -11 -5 5 14 -13 -7 6 -1 7 6 2 -15 -16 -7 -19 -19 -17 -6 -15 7 -8 1
-7 -9 7 13 4 -3 -9 -11 -10 15 -16 15 7 10 0 -11 -5 5 14 -13 -7