Question

Запишите на языке Паскаль программу решения задачи: Исходные данные(кол-во жильцов) представим с помощью линейной таблицы А,содержащей N элементов:А(1)-кол-во жильцов дома 1, А(2)- кол-во жильцов дома 2,...,А(N)-кол-во жильцов дома N. В общем случае А(i)-кол-во жильцов дома i,где i принимает все значения от 1 до n(i=1,n).Результат работы алгоритма обозначим через s. P.S. Считайте количество жильцов дома случайным числом из диапазона от 50 до 200 человек,а число домов n=30

Answer 1

Program z1
const n=30;
var a: array [1..n] of integer;s, i: integer;
begin
randomize;
for i:=1 to n doa[i]:= random (151)+50;for i:= 1 to n dos:=s+a[i];
writeln ('количество=',s);
readln;
end.

Answer 2

Для решения этой задачи на языке Pascal можно использовать следующую программу:

pascalCopy code
program HouseResidents;

const
  n = 30; // Количество домов

var
  A: array[1..n] of Integer; // Линейная таблица для количества жильцов в каждом доме
  i, s: Integer;

begin
  // Инициализация генератора случайных чисел
  Randomize;

  // Заполняем таблицу A случайными значениями от 50 до 200 для каждого дома
  for i := 1 to n do
    A[i] := Random(151) + 50; // Генерируем число от 50 до 200

  // Вычисляем сумму жильцов во всех домах
  s := 0;
  for i := 1 to n do
    s := s + A[i];

  // Выводим результат
  writeln('Количество жильцов в каждом доме:');
  for i := 1 to n do
    writeln('Дом ', i, ': ', A[i]);

  writeln('Общее количество жильцов во всех домах: ', s);
end.

Эта программа создает массив A из 30 элементов, представляющих количество жильцов в каждом из 30 домов, используя генератор случайных чисел для генерации чисел от 50 до 200. Затем программа вычисляет общее количество жильцов во всех домах и выводит результаты на экран.