Предмет: Информатика,
автор: genanikitin6654
Запишите на языке Паскаль программу описания, заполнения и вывода массива.
В некотором населённом пункте n домов. Известно, сколько людей проживает в каждом из домов.
Исходные данные (количество жильцов) представить с помощью линейной таблицы и вертикального списка, содержащих n элементов: a[1] - количество жильцов дома 1, a[2] - количество жильцов дома 2, …, a[n] - количество жильцов дома N.
В общем случае а[i] — количество жильцов дома i, где i принимает все значения от 1 до n (i =1,n).
Считайте количество жильцов дома случайным числом из диапа
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Русский язык,
автор: vovka37
Предмет: Русский язык,
автор: Аноним
Предмет: Окружающий мир,
автор: Еостя
Предмет: Русский язык,
автор: elinaxomyak2006
Предмет: Математика,
автор: asworld