Номер §1.4 ПМ 3

В программе на странице константа N задаёт число элементов массива, поэтому для домов записываем N = . Функция random() даёт целое число от до ; после прибавления получается число от до включительно. Каждому дому соответствует один элемент A[i].

const
  N = ;
var
  i, s: integer;
  A: array[..N] of integer;
begin
  randomize;
  for i :=  to N do
  begin
    A[i] := random() + ;
    writeln('A[', i, ']=', A[i]);
  end;
  s := ;
  for i :=  to N do
    s := s + A[i];
  writeln('s=', s)
end.

Строка randomize позволяет при новых запусках получать разные наборы случайных чисел. Первый цикл заполняет массив и выводит число жильцов каждого дома. Перед вторым циклом сумма равна нулю, потому что ещё не учтён ни один дом. На каждом шаге прибавляется ровно A[i], поэтому после -го шага s содержит сумму всех элементов. Например, если первый, второй и третий элементы равны , и , промежуточные суммы будут + = , + = , + = . Точное итоговое число зависит от случайно полученного массива.