Предмет: Информатика, автор: genanikitin6654

Запишите на языке Паскаль программу описания, заполнения и вывода массива.

В некотором населённом пункте n домов. Известно, сколько людей проживает в каждом из домов.

Исходные данные (количество жильцов) представить с помощью линейной таблицы и вертикального списка, содержащих n элементов: a[1] - количество жильцов дома 1, a[2] - количество жильцов дома 2, …, a[n] - количество жильцов дома N.

В общем случае а[i] — количество жильцов дома i, где i принимает все значения от 1 до n (i =1,n).

Считайте количество жильцов дома случайным числом из диапа

Ответы

Автор ответа: sanekharchuk181002
0

Ответ:

var

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

 i, n: integer;

 

begin

 write('Введите сколько домов в населенном пункте: ');

 readln(n);

 for i := 1 to n do  

 begin

   write($'Сколько жильцов в {i} доме: ');

   readln(a[i]);

 end;

 for i := 1 to n do

 begin

   writeln($'В доме № {i }живут {a[1]} жильцов');

 end;

end.

Похожие вопросы
Предмет: Русский язык, автор: elinaxomyak2006
Предмет: Математика, автор: asworld