Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Помогите пожалуйста написать программу!

Миша Данишевский Ученик (144), закрыт 9 лет назад
Запишите на языке Паскаль программу решения задачи.
В некотором населённом пункте n домов. Известно, сколько людей проживает в каждом из домов. Найдите количество людей, проживающих в данном населенном пункте.
Исходные данные (количество жильцов) представить с помощью линейной таблицы а, содержащей n элементов: a[1] - количество жильцов дома 1, a[2] - количество жильцов дома 2, …, a[n] - количество жильцов дома N.
В общем случае а [i] — количество жильцов дома i, где i принимает все значения от 1 до n (i =1,n). Результат работы обозначить через s.
Лучший ответ
Krab Bark Искусственный Интеллект (301808) 9 лет назад
program a1;
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.
Остальные ответы
Похожие вопросы