Question

записать на языке Паскаль программу решения задачи, рассмотренной в примере пункта 2.2.4 учебника по информатике за 9 класс автор Босова. Считайте количество жильцов дома случайным числом из диапазона от 50 до 200 человек, а число домов n=30

Answer 1

const

   n = 30;

var

   a: array [1..n] of integer;

   s, i: integer;

begin

   for i := 1 to n do

   begin

       a[i] := random(151) + 50;

       writeln('Дом ', i, ' = ', a[i]);

   end;

   for i := 1 to n do

       s := s + a[i];

   writeln('Всего ', s);

end.