Задание:
Известно число жителей, проживающих в каждом домеулицы. Нумерация домов проведена подряд. Дома с нечетными номерами расположены на одной стороне улицы, с четными — на другой. На какой стороне улицы проживает больше жителей? В ПАСКАЛЕ АВС
Решение:
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.
Знаете другой ответ?