Question

Составить программу подсчета жителей населенного пункта. Исходные данные: количество жильцов дома считать случайным числом от 40 до 70, а количество домов n вводится с клавиатуру.

Answer 1

Var a, b, c: integer;
begin
    randomize;
    writeln('Введите кол-во домов');
     Readln(b);
    for a := 1 to b do begin
        c := random (30) + 40;
        writeln ('Жителей в доме ',c)
    end;
    writeln('Кол-во жителей в населённом пункте ', c * b);
end.