Запишите на языке паскаль программу решения в некотором населённом пункте n домо.известно сколько людей проживает в каждом доме исходные данные (количнство жильцов) представить с линейной таблицы a, содержашей n элементов a (1)-количество жильцов дома 1 a (2)-количество жильцов дома (n)-количество жильцов дома n в обшем случае a (i)-количество жильцов в доме i, где i принимает все значения от 1 до (i=1, n) результат работы обозначить через s считайте количество жильцов случяйным числом из диапозона 50 до 200 а=30
liza10pav
1
09.09.2019 12:40
11
Другие вопросы по теме Информатика
Sveta2415
23.04.2021 10:47
ванга13
23.04.2021 10:48
kostetXD
19.05.2019 02:40
letochka111
08.04.2020 16:49
angel2112001
08.04.2020 16:49
vidana3
08.04.2020 16:49
Arinka722
08.04.2020 16:49
Популярные вопросы
- Какие произведения гаршина ты хотел бы прочитать?...
2 - Железный кубик весит 1кг. сколько грамм весит железный кубик, ребра которого в 5...
2 - Сделать скорость катера -980 м/мин. меч-рыба проплывает 6км. за 5 мин. у кого выше...
1 - Примеры сентиментализма начала 19 века...
1 - Может ли курочка ряба нести каждое второе яйцо простое, а каждое третье золотое?...
2 - 18+376-(534: 6-429: 9) решение столбиком...
2 - Кого конфуций считал благородным, то есть достойным человеком? согласны ли вы с...
3 - Скажите пословицы с сравнениями и с предлогом как...
1 - Формула газообразного углеводорода относительная плотность которого по воздуху равна...
1 - С: укажи общий признак имен прилогательных в словосочетаниях лебяжьим пухом,глубокими...
1
var a:array[1..1000]of integer; i,n,s:integer;
begin
write('n: '); readln(n); s:=0;
for i:=1 to n do begin write('a[',i,']: '); read(a[i]) end;
for i:=1 to n do s:=s+a[i]; writeln('s=',s); readln; readln
end.